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1. CENTRIFUGAL FLOW PUMP SIZING PROGRAM 



J. J. Brunner 
4-28-72 

COMPUTER PROGRAM 

CENTRIFUGAL FLOW PUMP SIZING PROGRAM 

A 

I . INTRODUCTION 

Preliminary sizing of a centrifugal flow pump is performed based on an 
assumed or initial hydraulic efficiency Component losses are computed and 'a 
new value of efficiency is determined. Sizing and loss computations are repeat* 
until the hydraulic efficiency approaches a constant value and the specified hec 
is satisfied. With this program, a pump can be sized for a specified flow coef 1 
cient or the optimum flow coefficient can be determined by iterative process thi 
selection of the appropriate program flag. Because of design model limitations 
this program is generally not recommended for final detail design. 

This program was used for the design point selection of the NERVA two-st< 
turbopump described in Reference 1. 


Reference 1 - Aerojet Nuclear Systems Company Engineering Operations Report 
N8300R:71-076, NERVA Turbopump Design Report, Volume 1, 
September 1971 
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During the design of the NERVA Turbopump, numerous computer programs 
were developed for the analyses of fluid dynamic problems within the machine. 

The programs developed are shown in the following list. 

1. Centrifugal Flow Pump Sizing Program 

2. Axial Thrust Balancer Stability Analysis 

3. Circular Section Volute Design 

4. Inducer and Impeller Performance Program 

5. Impeller Discharge Traverse Data Evaluation 

6. Pump Air Test Data Reduction 

7. Overall Performance of a Two Stage LH 2 Pump 

8. Crossover Passage Design 

9. Air Pump Performance Map 

10. Pump Axial Thrust Program 

11. LH 2 Pump Test Data Reduction Program 

12. Axial Blade Design Program 

13. Multistage Axial Flow Turbine Performance Analysis Program 

This report contains program descriptions, example cases, users instructions 
and listings for the majority of these programs. In some cases only the listing 
is included. 

II. COMPUTER PROGRAM DESCRIPTIONS 
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If the inducer (axial section) is integral to the impeller the first 
partial blades are assumed to begin at the start of the transition section. The 
transition section is divided into 3 cones. The blade angle within each conical 
section is constant. The radial section contains logarithmic spiral blading 

(b = b 2 ). 

Blading of impellers without integral inducers begins at the start 
of the transition section. For such impellers the input parameters Z Q designating 
the number of inducer blades must be zero. 

B. VANED DIFFUSER MODEL 

The parallel wall vaned diffuser consists of vanes with straight line 
contours within the region of vane overlap. The vane shape is shown in Figure 2. 

III. INSTRUCTIONS TO INPUT 

1. The ratio QKI is the ratio of the impeller recirculatory flow to the 
net pump flow. 

2. PHIMN is the limiting minimum value for the inlet tip flow coefficient. 

3. The cavitation parameter VHKM is the ratio of the Net Positive Suction 
Head to the inlet velocity head. 
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DIFFUSER BLADE 



CVAN = CHORD LENGTH 
VNS = NUMBER OF VANES 


RDIS = RADIUS TO POINT OF MEAN DISCHARGE THROAT 
ADIS = ANGLE OF DISCHARGE AT THROAT (MEAN ANGLE) 


FIGURE 2 



4 . 


5. 


r- 

o. 

7. 


The first partial impeller blades designated by Z1 are the longest 
blades next to the full blades. The inducer blades ZO which generally 
extend to the impeller discharge are considered as full blades ^must 
be added to the partial blades to obtain the total number of impeller * 
blades. 12 , 13 and Z4 are splitter vanes or shorter partial blades. 

The value to be input for the blade schedule NZ is equal to the 
highest number of partial blades, e.g., for 13 NZ = 3. The blade 
schedule for the 24 blade M-l oxydizer impeller, for instance, is: 

Z = 24 total number of blades 

ZO = 3 full blades or inducer blades 

Z1 = 3 first or long partial blades 

Z2 = 6 second or intermediate partial blades 

Z3 = 6 third or short partial blades. 

The blade angle distribution factor KBMID is the ratio of the inducer 
discharge mean blade angle to the inducer inlet mean blade angle. 

For flat plate inducers with constant hub ratio KBMID = 1.0. 

The tip clearance factor SIG is generally 1.2. 

To improve axial thrust balance the impeller disc is sometimes extended 
beyond the discharge mean diameter of the impeller, as indicated in 
Figure below. DR is the radial extension of the impeller disc. 
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8. Impeller configuration flag FLAG 

0 unshrouded with backvanes 

1 shrouded with backvanes 

2 unshrouded with smooth backside 1 

. 3 shrouded with smooth backside 

9. The labyrinth clearance factor FLACO is the ratio of the radial 
labyrinth clearance to the labyrinth diameter. 

10. The flow coefficient factor KPHI is the ratio of the desired flow 
coefficient to that recommended by Stepanoff in Reference 2. For 
unshrouded impellers KPHI is generally less than 1.0. 

11. A desired flow coefficient can be input. This will override the 
program recommended value. If three values are input, e.g. three 
pumps will be calculated in the same run. 

12. The ratio XKQD is the ratio of the diffuser recirculatory flow to 
the net pump flow. 

13. The diffuser length to throat ratio is equal to XL/TIN (see Figure 2). 

14. For the parallel wall diffuser, the diffuser area ratio REX is TOUT/TIN 

15. The diffuser blade shape and especially the thickness to chord length 
ratio varies significantly with blade number and blade angle. If 
these parameters are not specified (see note 17) the program searches 
for an acceptable blade shape within a range of blade angles and 
blade number limited by RLBET and RLZD. RLBET is the difference 
between the maximum allowable blade angle and the minimum calculated 
value (generally approximately 2 to 3 degrees). RLZD is the maximum 
diffuser blade number specified. The acceptance criteria for the 
blade profile is incorporated into the main program. 

16. Flag OPTFI = 1.0 if discharge flow coefficient optimization is 
desired. 

. 17. SBETA and SZD are optional. If not input RLBET and RLZD must 

be specified in order that a low loss diffuser vane may be selected 
from a sample of vane shapes (see also Note 15). 

• Reference 2 

Stepanoff, A. J. - Centrifugal and Axial Flow Pump, John Wiley & Sons, 1957 
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18. If the friction loss coefficient FRD is input it will override 
the program calculated friction coefficient based on the vane 
surface finish (see Note 21). 

19. Diffuser loss adjustment factor FLACO ^ 2.25. Value can be zero' 
if a continuous crossover channel is used. 

20. Optional housing structural constraints: RPHG, FSTHG & SSTHG. 

All these parameters must be either zero or positive. 

21. XKFVD must be input if FRD is zero. 

22. FLAHG - HOUSING TYPE DEFINITION 

1.0 Single Discharge - Single Tongue Vol . (no vaned diffuser) 

2.0 Dual Discharge Volute (no vaned Diffuser) 

3.0 Double Volute (no vaned diffuser) 

4.0 Vaned Diffuser, Single Discharge - Single TongueVolute 

5.0 Vaned Diffuser, Dual Discharge - Volute 

6.0 Vaned Diffuser, Double Volute 

7.0 Vaned Diffuser + Crossover Channel with vaneless 

8.0 Vaned Diffuser + Reversing channel with continuous vane 

23. The following parameters are related to internal crossover designs 
defined by housing type definition flags (FLAHG) 7.0 and 8.0: 

Friction Loss Coefficient for vaneless turn CLUT (FLAHG = 7.0). 

For cast channels CLUT « 0.04. This value is lower for machined 
channels. 

The angle correction factor FINC applies to the inlet angle of 
the reversing vanes (FLAHG = 7.0). FINC is the ratio of vane 
inlet angle to fluid angle at the inlet to the vane. 

A fluid angle BE10 at the reversing vane discharge of 90° indicates 
that the fluid exits the vaned passages in radial direction. 

The number of reversing vanes ZRV is related to the number of 
diffuser vanes in the program. The program determined value is 
overridden when ZRV is input. 

The reversing vane discharge disameter D9 is related to the impeller 
eye diameter in the model. The program determined value is ignored 

if D9 is input. 
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The vane height B9 is indicated in Figure 4 and related to B7 
in subroutine REV CH. 

The ratio RBRM - r m /B ffl (Figure 4) is optional. If input it 

Will override the program constant of 1.4. 

+ fny RP67 of 1 1 can be circumvented by 
The program constant for RBo/ 1 

inputting a specified value. 

The inlet blade thickness THRV applies to housing configura 
(FLAHG) 7. If input it will override the program value of 0.120. 


The program constant for RDSV is 1.1. 


IV. SUMMARY OF RUN MODE S 

1 . 


2 . 

3 . 

4. 


,Y OF RUN riuuta . . 

— . , HT^rhrirQG flow coefficient 

With all optional parameters specified, e.g. 

diffuser blade number "^efficients for evaluation purposes. 
As above witn as many as .commended value, with 

Flow coefficient in percent or ategc.no,. s 

or without specified diffuser parameters. 

Flow coefficient optimization, no options. 
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NOMENCLATURE INPUT 


SYBMOL 

DESCRIPTION 

UNITS 

FORMAT 

WP 


Flow Rate 

Ib/s 

F 

XN 


Rotational Speed 

RPM 

F , 

RHO 


Fluid Density 

lb/ft 3 

F 

QKI 

(D* 

Ratio Recirc. Flow Impeller 

- 

F 

HNPSH 


Net Positive Suction Head 

ft 

F 

HTOT 


Tot Head Required 

ft 

F 

EPS 


Inlet Hub Ratio 

- 

F 

PHIMN (2)* 

Impeller Inlet Min Flow Coefficient 

- 

F 

BB2 


Impeller Discharge Blade Angle 

Deg 

F 

VHKM 

(3)* 

Min Cavitation Parameter 

- 

F 

SOLI 


Inducer Blade Solidity 

— 

F 

ZO 


Inducer Blade Number 

- 

F 

Z1 

(4)* 

First Partial Impeller Blades ; 

- 

F 

12 

(4)* 

Second Partial Impeller Blades 

~ 

F 

13 

(4)* 

Third Partial Impeller Blades 

- 

F 

Z4 

(4)* 

Fourth Partial Impeller Blades 

- 

F 

KBMID 

(5)* 

Blade Angle Distribution Factor 

- 

F 

NZ 

(4)* 

Blade Schedule 

- 

I 

SLC . 


Blade Tip Clearance 

In 

F 

SIG 

(6)* 

Tip Clearance Loss Factor 

- 

F 

DR 

(7)* 

Radial Extension of Impeller Disk 

In 

F 

FLAG 

(8)* 

Impeller Configuration 

- 

F 

FLACO (9)* 

Labyrinth Clearance Factor 

- 

F 

KPH1 

(10)* 

Flow Coefficient Factor 


F 

PHI 21 01)* 

Selected Discharge Flow Coefficient 

- 

F 

PHI22 01)* 

Selected Discharge Flow Coefficient 

- 

F 

PHI23 (11)* 

Selected Discharge Flow Coefficient 

- 

F 

ETAHI 


Initial Hydraulic Efficiency 

- 

F 

Z 


Total Number of Impeller Blades 

- 

F 

XKQD (12)* 

Ratio Recirc. Flow Diffuser 

- 

F 

DINLT 


Diffuser Inlet Blade Thickness 

In 

F 

RL 

(13)* 

Diffuser Length to Throat Ratio 

- 

F 

REX 

(14)* 

Diffuser Area Ratio 


F 
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SYMBOL DESCRIPTION 

RLBET (1.5)* Range Diffuser Inlet Blade Angle 
RLZD (15)* Max. Diffuser Blade Number 
XKMSC Surface Finish, Impeller 


UNITS 

FORMAT 

- 

F 

- 

F 

In 

E , 


OPTFI (16)* Flow Coefficient Optimization Flag 
SBETA (17)* Selected Diffuser Blade Inlet Angle 
SZD (17)* Selected Diffuser Blade Number 

FRD (18)* Friction Coefficient Diffuser 

FLA (19)* Diffuser Loss Adjustment Factor 

RPHG (20)* Max to Design Pressure Ratio 

FSTHG (20)t Housing Safety Factor 

SSTHG (20)* Housing Material Yield Strength 

VIS . Fluid Dynamic Viscosity 


F 

Deg F 
F 
F 
F 
F 
F 

lb/sq in F 
lb sec/sq ft E 


XKFVD (21)* Surface Finish Diffuser Vane 

XKDVD Diffusion Loss Factor (~.260) 

XrJVD Incidence Loss Factor ( ^ «o00) 

EVD Diffusion Exponent Diffuser 3.0) 

FLAHG (22)* Housing Type Definition 

XKSFS Volute Surface Finish 

CLUT (23) * Friction Loss Coeff, Vaneless Turn 

FINC (23 Y Angle Correction Factor 

BE10 (23)*' Fluid Angle, REversing Vane Discharge 

ZRV (23)’* Number of Reversing Vanes 

D9 (23) '* Reversing Vane Discharge Dia 


In E 

F 

r 

F 

F 

In E 

F 
F 

Deg F 

F 

In F 


B9 (23)*' Vane Height, Revers Vane Discharge In 

RBRM (23)* Ratio Mean Turning Radius to Mean Passage Height 
RB67 (23)* Ratio B6/B7 - 

THRV (23> Inlet Blade Thickness In 

RDSV (23)'* Ratio DSV/D9 (^ 1.1) 


F 

F 

F 

F 

F 


*Note number, see Instructions Section III. 
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CLIND 

thind 

dhind 

CLTOT 

RP2 

SOLTO 

CLIMP 

thimp 

dhimp 

THTOT 

S0L2 


di;2 

BBC1 

BBC2 

BBC3 

dhtot 

S0L3 

DH3 

CLRS 

CLCl 

CLC2 

CLC3 

CLTS 

SOL1P 


_D ESCRlBIIOi. 

See Figure 1 
See Figure 1 

Axial Length of Inducer Sect! on 
Chord Length, Inducer 

sir. 1 .-; — - 

Total Solidity 
Chord Length Impeller 

Blade Wrap Impeller Passage 

Hudraulic Diameter I-fHer Blade 

Total Blade Wrap 

Blade Solidity l*t-2nd Partial 

Hydraulic Die Ht-2nd Partial 

Blade Angle Cone 1 

Blade Angle Cone 2 

Blade Angle Cone 3 

Hyd. Diameter Total # 

Blade solidity 2nd-3rd Partial 
Hydraulic Dia. 2nd-3rd Partial 

Chord Length Radial Section 
Chord Length Cone 1 
Chord Length Cone 2 
Chord Length Cone 3 

Chord Length Total 

Impeller Blade Solidity 


UNITS 

In 

In 

In 

In 

Deg 

In. 

In 

In 


In 

Deg 

In. 

Deg 

In 

Deg 

Deg 

Deg 

In 

In. 


In 

In 

In 

In 

In 
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SYMBOL 

DESCRIPTION 

UNITS 

THRS 

Blade Wrap Radial Section 

Deg 

THC1 

Blade Wrap Cone 1 

Deg 

THC2 

Blade Wrap Cone 2 

Deg 

THC3 

Blade Wrap Cone 3 

Deg 

THTS 

Blade Wrap Total 

Deg 

SCL 

Blade Tip Clearance 

In 

DELE 

Clearance Loss Parameters 

- 

DELK 

Clearance Loss Parameter 

- 

DELR 

Clearance Loss Parameter 

- 

W2TH 

Discharge Relative Velocity 

ft/sec 

RW 

Relative Velocity Ratio 

- 

HTH 

Theoretical Head 

ft 

SLPCF 

Slip Coefficient 

- 

PSINC 

Head Loss Coefficient Inducer 

- 

PSF 

Head Loss Coefficient Friction 

- 

PSD 

Head Loss Coefficient Diffusion 

- 

PST IP 

Head Loss Coefficient Tip 

- 

PSCL 

Head Loss Coefficient Clearance 

- 

PSIBL 

Head Loss Coefficient Blade 

- 

PSITH 

Theoretical Head Coefficient 

- 

Parameters describing diffuser blade geometry are depicted in Figure 2. 
diffuser data: 

Other 

STANG 

Stagger Angle 

Deg 

TRACO 

Chord Length(Transformed) 

In. 

SOLID 

Solidity 

- 

BBM4 

Inlet Mean Blade Angle 

Deg 

BBM5 

Exit Mean Blade Angle 

Deg 

FEE 

Blade Turning Angle 

o 

ACROSS 

Blade Cross-sectional Area 

in 2 

o 

AEW 

Passage End Wall Area 

. C 

in 

ABS1 

Blade Surface Area 

In 2 

AR 

Ratio AEW/ (Z x ABS1 ) 


DH 

Hydraulic Diameter 

in 2 

ATHT 

Total Throat Area 

in 2 
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SUBROUTINE. A'N'SWfT ‘ x 

FE/jL KF.1MID • . 

j COMMON XK ( 0 ) > X2 ( 8) t XFR ( QU XR < 8j ^ 

COMMON DHIYRMI # H*# RA% RC # BBMl # CL I NO * THINDi # 2L #DHIND #BLK1 # A1 #> ABl r DPI NO 
! . 1 *BLCnn3C2#BBC3»CLCIf CLC2# CLC3#CLTS#TMC1#THC2#THC3# THTS# CLRSfTHRS# 

, 2CLTMP’# THI’MPI# CLTOT #THTOT # RLJ<2 # A2 # SOLI r_SOL2 # S0L3# SJ0L4 # SOL5 # SOLIP # SOL^ 

T 3 T 0 # OH 2 t D 63 / DH4 » DH 5 / DH I Vp" # DHTOT # R P2 # R P 3 # R P 4 # SM » Q I # S I G # DR # CM2 # SCL 
. COMMON OH #EPS#D2#B2#B3T1*3B2# Zt Z0#Z1#Z2*Z3# Z4# N2 # KDMID # XSI fOPIMP 
COMMON' WPrXN#RHO»GKI »HNPSH#HTOT#PHIMN#VHKM#ETAHI#PSITH#ESHR#RWR 
COMMON XKPHl'p PHI 2l'» PHI 22 f PHI23 » CMl t "Of: l/ PHUT # SfXNS*PSIO* PHI2 #NCASE 
COMMON FLAG#VIS#FLAC0#WWR#U2*PSIBL#DPTPS# n SIIP*PSIIM#FRD 

• COMMON B4 f RL #R£X r R4 r BETA » BFL4 * 2D #DINLT #DISTH # T IN # TOUT # XL# V5 # 

iRADUS ( 95) # THETA * R ADTH'V ALPHA' # RAD f DELTAVgAM^A f ARC # BAR » RLOCVCVAN V 


2ANVAM.'BXB»DIFBCfRDl5»ADISf THICK #THICO# STANG#TRACO# SOLID #RBM4# 
3BB'>15*FEE# ACROS# AEW#ABS1 *OH* AR * ATHT # R I # NO GO f NSK I P * OPTFI * PR INT r FI2 _ 
COMMON RIOPT #RIDM#R JBL# R IBH # DEL # BFL5 #DEG # RMTH # OMPR # OMEW # OMOV 
COMMON V4 # M # XKDVD # XK1VD # XKFVD # EVD # FLA # XKOD # 0 » OD f OMTOT 

C OMMON RPHG # SSTHG # FSTI 1G # XKSFS # XKM6C # D6 * 07 # C7 * DPSSC * DPSFS # DP5MC # C34 
"'COMMON' RLBET # RLZbVSBET A # SZQ# PSHSG # E TAOV * LOOP * FLAHG# 139 


COMMON CLUT * F I NC # BE 1 0 # RBRM # 09 # RB67 # THR V # ZR V # RDSV # TEX5 * DLOM * RCM5 

110 FORMAHlXr » INLET HUf3 01 AMETER #DHl * * 13X # F10 . 3 # 2X# * INCHES ». # 10X # *_INLE 
7T MEAN RADIUS# RM1* # 14X #F10 * 3 » 2X# * INCHES M 

111 FORMAVUX# f INDUCER VANE HEIGHT # H 1 # 14X » FiO • 3 # 2X » • INCHES* # 10X » ♦ INLET 
8 AREA#AI» r22X*F10.3f2X# »SQ INM 

' 1 12 FORMAT (IX/ * INLET BLOCK AGE /BLK1 r »16X# F l6**3 # 3XT>‘**** »T2X t ’INDUCER Dt 

IFF PARAMETER # DPI ND* #7X #F10 • 3# 3X # 

113 FORMAT ( 1X # f INLET AREA WITH BLOCKAGE* ABl ♦#7X#F10*3#2X» , SQ IN**11X#_*_ 
1DISCHARGE AREA # A2 T # 18X # FI 0 « 3 # 2X f * SO IN* ) 

114 FORMAT ( IX #* INLET MEAN BLADE ANGLE * BBMl 1 # 3X » FI 0 . 3 * 2X DEGREES * ) 

'115 FORMAT ( IX * f IMPLLR DIFF PARAMETER » DPIMP ♦ > fl X r F1 0 * 3> 3X t >♦*» 1 > 12X # 1 PIS 

2CHAHGE BLOCKAGE * BLK2 1 * 12X # FI 0 *3 # 3X* »*♦**’)"" 

116 FORMAT ( IX# 1 INLET TIP TO DISCHARGE DIA RATIO # XSI »# F9 . 3 # 3X# »***♦# 1?X 

1 # 1 ST AT I C MOMENT # SM * # 19X # FIG « 3 # 2X # * SO IN*#/) __ _ ' 

" “117 FORMAT (5X#7HRA =/Fl 0 *‘3# 5X#7HRC"’ =# F10V3 # 5X# 7HZL =#F10.3#5X 

1 * 7HCLRS =#F10.3#5X*7HTHRS =#F10.3> 

118 FORMAT (5X#7HCLIND =.*F10.3» 5X >7HCLIMP ” # F 1 0 > 3 > 5X » 7 HDB C 1 =#F10>3#5X 

: 1#7HCLC1 - # F 1 0*3# 5 X V 7H TH C 1 = » F 1 fi * 3 ) 

119 FORMAT (5X»7HTHIND = > F 1 0 • 3 * 5X # 7HTHIMP = # F10 . 3 # 5X # 7HBBC2 r#F10.3#5X 

1 # 7HCLC2 =#F10.3»5X»7HTHC2 . =#F10.3) 

120 FORMAT ( 5X * 7HDHIND = »"F 10*3 # 5 X # 7HDH I MP = # F10 . 3 # 5X» 7HBDC3 =#F10.3#5X 

1 # 7HCLC3 =#F10.3#5X#7HTHC3 =#F10*3) 

_ 121 FORMAT ( 5X r 7HCLT0T = * FlQ ♦ 3 * 5X # 7HTHT0 T = » FI 0 * 3 # 5X # 7H D HT0T = #F10.3»5X 

1*7HCLTS * = # F 1 0 # 3 # 5X # 7H THIS ""=7F10.3) 

V/RITE ( 3# 114) BBMl 

_ WRITE f 3 # 110 )_ DH1 » RM:l ‘ ' 

" WR I TE ( 3 / 1 1 1 ) H # A 1 ” 

WRITE C 3 1 112 ) BLK1 # DPI NO 

WRITE (3# 113) ABl t A2 

"WRITE (3# 115)"DPIMP#]iLK2 ’ 

WRITE ( 3 # 116) XSI#SM . . 

WRITE (3# 117) RA # RC # ZL # CLRS # THRS 

WR X TE < 3 # 1 18) CL I ND # CLIMP*BBC lVCLC T# _ THC 1 

WRITE (3# 119) THINO # THI MP # BBC2 # CLC2 # THC 2 

’ WRITE ( 3# 120 ) DHIND#0HIMP*BBC3#CLC3#THC3 

; “* v/R I T E ( 3 # 1 2 1 ) CLTOT # THToT'/DHT OT #'CLTS # THTS 

IF (N2-2) 10*11*12 





0Q0057_ 
"000058 
000059 
000060 
"'000061 
000062 
0 0 0063 
' 0000^4 ~~ 




DATE 2ft APR 72 PACE 


|__6 _FOfAlAT ’( 5X » »SOLIP = » >Fl O>4 »5X> »SOLTO = » >F10« 4) 

"io~ vini r'dtaVs*) souprSOLTO 

' GO fO 30 

22 FORMAT 1 5X r 7HRP2 = > F10.3* 5X ^7^S0t2 =*P1C.3»5X»7HS0L3 =tF10.3,5X_ 


“177H :o,.IP =7 F 1 0T375X77H SOLTO ~= >~F10 . 3 r 5 X , 7HDH2 
•2=r-l'j;3) 1 ‘ 

.11 WR ? rb:(3f22) , RP2»SOL2#SOL3fSOLlPrSOLTOpDH2»OH3„ 
go ro ! 30 


=:» F10 * 3 r 5X > 7HDH3 


000065 


12 II-l'JZ-3) 13*13*14 

000066 


24 FOP/A T { 5X * 7JHS0L2 

000067 


| 3*7hRf\2 = *flO',3** 

000060 


4“ H 7 1 0 * 3 * 5X * i7HDH2 

000069 


.13 WR t'fE ( 3* 24 ) * 50L2*' 

000070 ~ 


i GO TO 1 30 ' 

000071 


.'27 FOR.VA H 5X * 7HRP2 

000072 


1*7HDN2 =fF10.3*‘ 

000073 
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__ 1RA3US195) fTHETA : fRADTHfALPHAfRADfOFLTAfGAM-‘Af AROfRARfRLOCfCVANf___ 

2ANVAN *BKS f DIFBC » RDIS~f ADIS r THICK fTHICO fST A 1G f TRACO f SOLID r BBM4 f “ 

3Rb.*15»FEEr ACROSr AEWfABSIfDHf ARf ATHT f R l f NO tO f NSK IPf 0->TFI f PRINT f FI 2 
COMMON RIOPTfRIEiM*RIBLFRIBHFDELFBFL5»nEQf WHFOMPRFOMEWrOMOV 

‘ ‘ COMMON V 4 f M f XKDVD * XK1VQ f XKFVn f F7D f FLA r XKODfOfODf OMTOT 

COMMON RPHG » SSTHG f FSTHG f XKSFS f XKMSC f D6 f D7 > C7 f DPSSC f OPSFS f DPSMC f C34 
C OMMON RLBET f RLZD f SUET a f SZD F PSHSG f E TAOV f loop f FLAHG f 59 
C0MM0N-‘CLUTFFINCfBEl0^R3RMVD9VRB6YfTHRVF'ZlV#RDSVpTEX5' fDLDMfBCMS 
R2=D2/ 2 . 

RTl-DT 1/2 • 

" D=2.*RWR “ 

co=flaco*d 

_ _ PI=ESHR/16. ; 

~T= *030 ’ 

XNTH=5. 

DPFF:=.1645E-07*.025*RHO*XN**2*(R2**2-BT1* *2) ■ 

P=DPIPS-DPFF T ” " ’ 

VI=VIS*(32.16/RH0) 

COEC=.67 . 

F A = 2 . * R H 0 * 32 • 1 74 1 * P * 1 4 4"7 
FB=SORT{FA) 

S=3.1 t ll6*C0*(D+C0)/144* _ 

CF= < XNTH-1 . ) * ( 1 . -8 . 52/ £'( PI -T ) /CO+7 . 23) ) +1 ^ 

DO 40 1 = 1 f 3 

COE=COEC/SQRT(CF) U; 

" W=COE*S*FD 
RE=C0*W/ { 6 • *$*VI*RHO) 

7LAB=T/C0 

IF(RE-60,)200f200f300 
200 RZ=ZLAB/RE 

CALL INT4(XZfXKfRZfFK) _ 

COEC=l * /SORT (64./RE+48.+ZLA8/RE+FK) 

GO TO 40 

300 RE=ALOG(RE) ; 

CALL INT4(XRfXFRfREf'FFR) 

FFR=EXP(FFR) 

PE=EXP £ RE ) 

" COEO=.62*RE**.0085 ‘ 

IF £ ZLAB-1 * 15 ) 310 f 310 f 320 

310 F=0 _'J. , 

GO TO 330 

320 F= 1.-2. 7183** (-. 95* (ZLAB-1.15) ) 

330 IF(RE“6000.)340f340f350 

340 COEC=1./SQRT(1/COEO+*2-F*(2*SORT(1/COEO**2-64./RE)-2.)+2.*FFR*ZLA8 
1) 











( (3Hd3V)NlS**2)/<2CI-3SV9a* , 2)=a3A3d 

3AVS=3W aa 

" " " 2**(T * 

(t7was)Soo/t^W!de)Nis-ii7ndu)SOD/cin3a)NiS)*2**( (t/“ij9)soD)*aATxx=atwo 

_dHSV=3W98 

• * " t? WO 0-3 A VS 

( (<i'waa)soD/(^wta>Nis+(snda)NXS/i*2*#O8dia/3sv0y)*viSd/T)r4Viv=JHSV 

( ( GZ/2**9* • t 7 ) ** ( 9* • 2 ) ) / ( V > dX3* ( GZ/JS*JL S )NIS*9»*2- ) dX3=V ISd 

■ ' rt 

X-2*0**8)*3**CZ/t>**9*3899*8+E**GZ/i7**9*££2*6l--2**CZ/2**9*16lS*9=:V 

; (9 ) S09=9 

tiW8S=9 £2 

(2**(3A/SA)- # T)*2 # 0 = GGWO 

(GHQ**3) /2**GAd* (GZ/3SVGd*6STjt7_T_*?+WG3CI+Nll*3d) *Gdd = OdWO 

' * “ “ 962*XS/<SWbfl-*O6)=S3d0 12 

£2 Oi 09 

’ GA3**QAa*QAG>;X=aC!W0 

“ ' ■ < (Ti^0)S6DA'S3d0)NISOa/ld“/3SVab-{t7WtiB)500/(tiWT 

.Ba>NiS)*(onos* , 2)/(twsa)so3+iS3du)so3/(iiWQQ)soD*oadia/3svaw-*i=aAa 

[ GHG* * 17 ) /2**GA , d*0QVdl* G,dd=_QdW0 

' 962*A9/53dG=S3d9 22 

X2 4 22 4 22 Ci-9HVnd)dI 

~ , . ; 9 6.2LM S / ti W 0 0= .3 !ri 9 £1 

962*19/33du=33dU 02 
2**(tiZ.*X+(QAd>!X/GHG**2) 903 V *99899 *0 ) / * X = 0>jd £1 

02 Oi 09 

. l£2 4 G**C13d/t22*0 + 2£00 *0radd 21 
£I 4 2T 4 2T (S0+3*T-U3d)dX OT 

■ ' : 0 2 4 QT 4 0X {0>id) _.dl ..6. 

SX3l/NIl*iUA = SA +7C 
6 Oi 09 

X3d/9£ldIG/SIQH*HlA _ =SA_2C_ 

G£ v 2£ 4 2£ <*l-0HV3d) dl 
SIA/CHd+HlA+GHG*l£OTO " 0=G3d 

3A/HiA=QAd 

‘ TNI i *20+ a 2 )/ G 0 * 1 2 £ # = Hi A 

962 • IS/ ( 33dH- * 06 ) =3Hd3V 

SW99 4 WCfia 4 SX31 4 ASGd 4 A2Z 4 AdHi 4 A9Qd 4 6G_ 4 Wd3c 4 0X30 4 OiSild' ifHO NCViWO.9 

" * 60 4 "9HVld" 4 ' d003 v AO Vi 3** 9 S H S d 4 til'S 4 VJ.30S 4 GZ3U 4 1303d NOWW09 

3£0 4 9W5dQ 4 SJSdC 4 9SSdG 4 19 4 IQ 4 9G 4 DSwMX 4 SdSXX 4 OHiSd 4 9H1SS 4 OHdd NOSwOO 

101W0 4 GO 4 0 4 GO MX 4 V3d 4 CJA3 4 UAdyX 4 aAXXX 4 GAa>iX 4 W 4 3A NOWW09 

A0 ^ Q - J ;a3w0 A^dwo' 4 Hi W <j 4 030 4 S3 dU 4 3 3U 4 H 0 1 d 4 3 0 1 H 4 W 0 1 d 4 1 dO 1 0 NOW >i 0 0 
2 Id 4 lNIdci 4 IdldO 4 dl >iSN 1 090N 4 1 d 4 IHiV 4 dV 4 GHG 4 TS8V 4 M3V 4 S0d9V 4 33d 4 SWP.3C 

4 3WGG 4 0300 4 09V dl 4 9NV 1 Sj|_ 0 9 I Hi 4 X9IH1 4 _SIG>. 4 _SIGd 4 90dIG 4 B>I9 4 N.VANV.. 2. 

4 NVA9 4 903d 4 UVd 4 0 dV 7 VWW VO 4 vl33Cf 4 QVd 4 VHd3V 4 HlOVd 4 V13H1 4 (06)^ HOVd X 
4 SA 4 3X <1001 4 Nil 4 HIS 10 4 13NIG 4 GZ 4 3330 4 Vi3G 4 3SV0'd 4 X3d 4 3d 4 39 N0WN09 

add 4 NXI Sd 4 dl I Sc 4 Sd I dQ 4 30 ISd 4 2n 4 ar.tt 4 09V3d 4 S I A 4 9 V3d MOW WO 9 

3SV9N 4 2 1 Hd 4 0 ISd 4 SNX 4 S 4 iU Hd 4 tin * X W 9 4 £21! id 4 22 1 Hd 4 T 2 1 Hd 4 X Hd XX • MOWWO 9 
dMd 4 dHS3 4 Hi I Sd 4 IHV13 4 W>IHA 4 NWlHd 4 101H 4 HSdNH 4 1 >10 4 OHd 4 NX 4 c'M M0WW09 
dWIda 4 ISX 4 aiWO^ 4 ZN J t7Zj‘£Z 4 2Z_ 4 XZj^0Z 4 Z 4 2OO 4 Xl£ia 4 29 4 2G 4 Sd3 4 UQ M0NW09 _J__ 
”3 9S” 4 2 W 9 4 d(J 4 9 IS 4 I0~ 4 WS 4 3dd 4 £ad 4 2dd‘ 4 101HG 4 dW IHC1 4 SHQ 4 3 MO 4 £HC 4 2 H 3 4 OlC 
3CS 4 d I30S 4 S30S 4 330S 4 £30S 4 230S 4 X30S 4 2V 4 2X3d 4 101M1 4 10139 4 dWlHl *' dWT392 

4 SdHl 4 Sd39 4 Si Hi. 4 £9H1 4 29H1 4 X_9Hi_ 4 Si39 4 £939 4 2939 4 X939 4 £900 4 29 00 4 1 902 4 T 

ON I da* 4 T Q V 4 X V 4 1 >130 4 GN IHQ~ 4 “ ( Z 4 UN I hT 4 G NI 3 03 4 9d 4 Vd 4 H 4 XWd 4 XHG . N0WK09 

. * , , C8)dX 4 (0)ddX 4 (9)ZX 4 (0)>!X N01MW09 

. _ 3d3oa 3Niif 0d_&ns 


9SOODO 

_ssooon._. 

I) 90000 
£90000 

_2SOOOO„ 

TSOOOO 

090000 

6 1)0 0,0Q 

S3 0 C 0 0 

I I) 0000 
__9t)0000_. 

S170000 
i)t)0000 
_£ t) 0 0 0 0_ 
21)0000 
itjoono 
_01;0000_ 
6 £ 0 0 0 0 
8 £ 0 0 0 0 
__Z£OOQQ_ 
9£00,J0 
9£00i)0 

_li£0000_ 
££0000 
2C0C00 
„X£0 0 :)0_ 
OCOCOO 
620000 
_8200n0_ 
120000 
920000 
20 000., 
1:200 00 
£20000 
_220000_ 
TSOOOO 
020000 
6 T 0 0 0 0„ 
8X0000 
1X0000 
1 9ioroo_ 

8X0000 
3X0000 
_£TOOOO„ 
2X0000 
TT0000 
__GT0G00 
600000 
800000 
_ 100000 „ 
900000 
900000 
_300000_ 
£00000 
' 200000 
_T00G00 




*2.-UfO# J. < 


000057 _ 
'000058 " 
000059 
000060 
"000061" 
000062 . 
000063 
000064 * 
000065 
000066 
'000067'“ 
000058 
C 0 0069 
”000070"" 
000071 
000072 
“000073 " 
000074 
000075 
0UU076T 
000077 
000078 
000079 
000080 
_0 0 0 0 8 1 
' 00 0032 
000083 
°0U°04__ 
"QUO 085 
000086 
0U0037_ 
000088 
000089 

_0U 0090 

000091 
000092 
_OOQ093_ 
”000094 
000095 
__000096__ 
0UO097 
00U093 
_00 0099 
000100 " 
000101 
_000102 
(,>00103 
000104 


___nE:^D--»00 5 le5^34*CJ34*RH o/ VIS 

IF <^L7Lb : -lVc + 0 5y"75"»i5 r 16 
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8£-l£'l£ (£0+3* X “*dW ’ 3c ) :iX 

_ C_SI 96 } /d I WM *OHd* dW I HCI - «JK 1 3d_ 

(H12M+ ( dTKSa*GIWa>l‘) MIS/ ( dX W6« ) NlS*TW8« ) *■; • c = c‘I K<‘4 

Ci7 01 09 

■-, ■ _*0-GIG£ld_ 

wdd = dt-Ji'dd 
d“lw*£2*«2n**2)/2*^dtw'^:iSd 
d‘lD*9+7£*^9/2**di’ 1 r t :'dlH_ 
< lOlHO'y W/ioi-o*^ diO 
**(t*l*T + U OSMX**?) /101HQ) S0~iV*GS&98 * 0 1 / * I = i\i id 

9£ 0 1 p9_ 

^ ^ q * * ^ £ v 0 +2 £ 0 £t * orw ; id ’ 


9 T 1 0 0 0 

suooo„ 
tuTOGO 
£ T X 0 fi 0 
_2T T 0 GO . 

TTTOob 
OTTOOO 
_ 6 (fT 00 n_ 
90X000 
10X000 
9 0 1 0 0 0 _ 
SGTOOC 
301000 
£0T009_ 
20 1000 
TOTOOO 
OOIOOO_ 
660000 
960000 

„i6oooo„ 

960000 
£60000 
_360 09 CL, 
£60000 
260000 
„_T 600 0 0__ 
060000 
690000 
,_9C0000.„ 
190000 
99C000 
_ 5 V? 0 0 () 0_ 
~3£ocmo~ 
CSOOO'O 
_290 00 0_ 
T 9 0 0 0 0 
08000 0 
„610ftp0„ 
910000 

110000 

L91GOOO 
£10000 
310000 
_.£10C0G._ 
21C 000 
UOOOO 
01000 c 
■"690000" 
990000 
_i9or.oo_ 
990000 
£90000 
. ^90000. 
£90000 
290000 
— T 900 0 0_ 
090000 
6900C0 

8£onoo_ 

"isoooo 





000117 

3 G-PHI*‘PSIT/<SIG*C0S(A) ) 




"ooona"""' r 

000119 

000120 

DE . w£=r jg L . 5 * < i . + < COS < A ) > **2/G*FI ) +* 1 • 5/ ( 3DR*C0S ( A ) ) 
PSCL=:J2.I74*DELE*HTH/U2**2 

psi rjL :: PS int+pscL 




'000121 

000122 

000123 

470 CONTINUE ’ • • 

' I F ( PR ' NT 50 f 50 r 60 
60 WRITE S3* 12) SCL fPSlNC *CU2TH 



1 

1 " 

000124 

0C0125 

000126 

WRITE(3rJ4> DELE * PSF f C2 • , 

WPITE(3rl6) DELK f P5D» ALP2 
WRITE.(3f 18) DELR * PST IP » FRIMP 

1 


1 

‘000127"“ 
C 00 123 
000129 

WRITE ( 3 r 20 ) W2TH pPSCL 
WRITE (3 f 22) RWfPSIBU 
1 * V/RITE(3flO) SLPCFfPSITH 



1 

t: 

000130 ~ 

000131 

000132 

' ~ WRITE ^ 3 f 24) HTH . 1 

10 FORMA T ( 5X » 7KSLPCF = » 3X r F1CU4> 24X >7HPSTTH =>3X*F10.4/) 
12. FORMAT (/5X*7HSCL := f 3X r FI 0 • 3# 24X * 7HPSINC =#3XrF10.4# 



<■ 

-I 

000133 

000134 

000135 

124Xi 7HCU2TH =r3X*F10*3) • 

1 4 FORMAT ( 5X > 7HDELE = / 3X > F 1 0 . 3 > 24X r 7HPSF = t 3X > FI 0 • 4 r 

124X p 71 iC2 = f 3X » FI 0 • 3 ) 



1 

1 

000136 7 
• 000137 
000133 

T 6 FORMAT ( 5X i 7HDELK = * 3X > FI 0 . 3 r 24X r 7H»SD = r 3X » FI 0 . 4 r 

124 X f 7HAL q 2 = ? 3X »F10*3) 

18 FORMAT ( 5X * 7HDELR = » 3X , F10 . 3 * 24X f 7HPSTIP =.3X»F10.4r 



i ■ \ 

t: 

000139 

000140 

000141 

' 124 X r 7HFR1MP =f3XfF10*3) 

20 FORMAT (5Xr7HW2TH =»3X f F10.3r24X^7HPSCL =r3X>F10.4> 
22 FORMAT { 5X f 7HRW = , 3X f FI 0 . 3 f 24X > 7HPSIBL =f3XfF10,4) 



1 1 

f •*•; 

1 

000142 

000143 

000144 

"24 "FORMAT tbXr VMHTH =,3 XfF10,3) 

50 RETURN 
ENO 


, 

$ 





1*10 


iiTVfi ' fr WMlfriHr - d ' K»v4 ~pYrJ L *,2^u £±j± *fi££&2Cti££&**: fe^L^Nl* £**& 

MATE ?<i >\\>U 7/ 1 ; A 0 . :> ^ 


» ELT IN! GEO* 

1*710427, 63109 




• 

000001 
000002 . 
000003 

subroutine IMGEO 

REAL KOMID f KP1 ,KP2 »KP3, KP4 
COMMON' XK(S) ,XZ(3> >XFR(8) *XR?R) 




& 

000004 

000005 

000096 

COMMON DHlfRMl,HfRA,RC-,BBMlfCLlNDfTHIND*ZLfDNlNDfBLf<lf A1»AB1,DPIMD 
1 , 1313 Cl •BBC2,B8C3,CLC.l,CLC2,CLC3,CLTS,THCl,THC2*THC3*THTS,CLRS>THRSf 
2CLIMP» 7HIMP,CLT07,THT0T,8LK2, A2, SOLI, SOL? ,S0L3, S0L4 , SOLS fSOLIPf SOL 




% 

1 

000007 

000006 

000009 

" “'3T0,0H2V0H3rDH4',DH5,DHlMP,DHT0T,RP2,RP3,RP4fSM*QI fSISfDRf CM2,SCL 
COMMON DTI r EPS , 02 f B2 , B3T1 • 882 f Z f ZO , Z1 f Z2 f Z3 , Z4 f NZ r K3MID , XSI , DPIV 0 
COM, MO M V.’P , XN , RHO , OKI , HNPSH r HTOT r PH I MM , VHKM , RTAHI , PSITH , ESHR , RWR 




1 

‘"ooooio 

000911 

000012 

COMMON XKPH1 , PHI 21 f PHI 22 , PHI 23 , CMl , 'JTl , PHI IT r S , XNS , PSIO , PH 1 2 , NCASE 
COMMON FLAG, VIS, FLAG 0 f W WR , U2 , PS I R L r DP I P$ , P 5 1 1 P f PS 1 1 N , FRD 
COMMON 84,RL,REXFR4,nETA,8FL4FZDfDTN. , LTFDTST'H,TIN*T0 , JTFXLFV5F 




| 

1 

000013 

000014 

000015 

1R ADUS ( 95 ) , THETA fRADTH f ALPHA , R AD , DELTA f GAMMA f ARO , RAR » RLOC f CVAM f 
2AN VAN i' BKlirDIFnCfROlS, ADIS f THICK fTHICOf STAN 3 fTRACOf SOLID, BBM4# 
3RBM.5 ,FEF » ACfiOS , AEW f ABS1 , DH , AR , ATHT , Rl , NOGO , NSK IP , 0°TFI , PRINT, FI2 




i 

!■ 


000016 , 
000017 
000018 _ 
"000019" 
000020 
_000021 
" 000022 '“ 
000023 

QUO 024 

*000025 
000026 
000027 __ 
■'00 0 028” 

C 00029 

000030 ^ 

000 031' 
000032 
000033 
“e 00034 

0 0 0035 
0 0 0 036 
"000037 
000038 

_0 0 0039 

0 U 0 0 4 0 
000041 
_0 0 0 0 4 2 _ 
000043“ 
000044 

_000 045 

000046* 

000947 

_C0 0048 

000049 
000050 
_0 0 9 0 5 1 
000052 
000053 
_ 000054 
000055“" 
000056 


COMMON RIOPT fRIBM * PsISL fRIRH,D£Lf BFL5,DEQ fRMTHfOMPR t OMEW? OMOV 
COMMON V4,Mf XKDVD » XK 1VD , XKFVD * EV 0 ? FLA t XKOD t 0 * GO * OMTOT 

COMMON RPMG » SSTH6 , FSTH3 » XKSFS , XKMSC , D_r->*_D7_, C7 > DPSSC , OPSFS t DPSMCj C3_4_ 
COMMON "r'lBET , RLZD", SBET A , SZD *, PSHSG * ETAOV , LOOP , FLAHG » 69 
COMMON CLUT , FINC , OElO * RBRM r D9 , RB67 , THRV , ZR / f RDSV f TEX5 fDLDMfP,CM5 

DH1=E 3 S*DT1 . 

*D M 1 = 5 Q R T < 0 * 5 * ( 0 T 1* *2+ D H 1**2 ) ) 

RI*l = 0v5*DMl 

H=0 • 5* i DT1-DH1 ) , 

RA-0.75*(H+B2) ~ ’ ' 

RC=RM1+RA • 

xsi=dti/02 ; 

R2=D2*U.5'“ 

IF ( R2-RC ) 10,10,11 

10 PA-R2-RM1 

RC::R2 

I r { PRINT ) 11 , Uf 13 

1 3 V:R ITE (3,500) __ : ■ 

500 FOR M A T ( 5 X , * R C 2 EQUALS R2*/> 

11 RC2=0.134+RA+RM1 ' 

RC3 = 0 •366*RA+RC2 

8 B T 1 R =BBT I”/ 5 7 • 2 96 

BBM1=A7ANCDT1/DM1*SIN(3BT1RJ/C0S(BBT1R) >*57.296 

B BM 1 R =!3 a M 1 / 57 . 2 9 6 1__ 

T £ M P = : .i B 2 / B Li M 1 /KB M ID 

CKi=TEMP**1.05-TEMP+l# • 

TEMP=!JB2/ < KBMID+BBM1 ) ; : 

C K 2 = 1 • + ( T E M P *"* 1 • 0 5-TEMP ) / 6 • 

CK3=l.+(TEMP**1.05-TEM 3 )/!0. 

TEMP=KBMIQ*BRM1 ; ; 

~TM P 2 n B 6 2 - T E M P” ' 

8BCl=TEMPfCKl/6.*TMP2 

RBC2-TEMP+CK2/2 * *TMP2 ' 

BBC3=TEMP+5.*Ck3/6.*fMP2 

B32R=BB2/57.296 

BBC1R=BBC 1/57*296 ; 

B3C2R=BBC2/57.296 
BBC 3i ? .=BBC 3/57 • 296 

CLIND=3.14159/Z0*DM.1*S0LJL ‘ : 

CLCB=BBMlR*0.5*a.+KBMID) 

THI-ND=360 . /ZO*SOL1*COS ( CLC?) 





- 





^ i TTiTHu » t # 100 ^ *"*’ •" ’ n 9 AT 5 28 APR 

■72 PAM-; 

21 


C00057 

7L~3.141S9/Z0*DM1*S0L1*SIN(CLC9) 




cooo sa 

000059 
C 0 0 0 6 0 

Ct.C i-“ 'RC2-RM1 ) / ( 0 * 259*5 IM (B8C .tR ) ) 
CLC2s(RC3-RC2)/(0.707*SIN<B9C2R) ) 
CLC3i.(RC-RC3)/(0.965+SlN(BBC3R^ > 



(• 

•Vnr*. ./ •* * 

C9U061 

000052 

000063 

CLT5:=':LC1+CLC2+CLC3 

THC 1:: :>7 v 296+ (ALOG < RC2) -ALOG ( RMl ) ) / ( 0«259*5IN(B8C1R) /COS (RBC1R) ) 
THC2:=57.296* ( ALOG ( RC3) -ALOG ( RC2 > ) / ( 0 . 707*f>lN < 3BC2R) /C0S<B8C2R ) > 



l: 

000064 
C 00065 
C 00066 

" THC 3s: ? 57, 296* ( ALOG (RC) -ALOG (RC3) > / < 0 . 965*SIN (B3C3R ) /COS < BBC3R > ) ' 1,: 

THTf;.= T HCl + THC2+TMC3 • i 

CLRS“ f R2-RC ) /SIN ( 532R ) • 



|, 

000067 
C 00068 
000069 

THF;S::57 * 296-* C ALOG ( R2 ) “ALOG ( RC ) ) / ( SI N { 882R ) /COS ( 8B2R ) ) 
CLJMP-CLTS+CLRS * • ’ 

TKIMP-THTS+THRS 



t: 
■ 1 

L0C070 
000071 
C 00072 

--cltot-glimp+clind" 

THTOT-THIMP+THINO 

IF(2(P 20 r 20 r 21 



f ■ 

h 

€00073 

C00074 
C 0 0075 

. .. - 20 ZX ~ Z1 . • i . 

GC TO 22 

21 ?X=Z 0 * • 1 ’ ' 



4. 

S': 

.000076“.. 
C 00077 
0-0 00 78 

22 BLK1=C.025*ZX/(RM1*SIN(BBM1R> ) 
Al=0. 7853975* (DT1**2-0H1**2> 
ABl=Al*(l.-8LKl> 



* / 

' ' 'k' 

CU0079 ' 

000030 

000031 

TMl“6 ♦ 2.331 8*RM1/ZX . ■ 

IF(Z0> 23 r 23 r 24 
23 SOLi-O 



i L 

! ■ 

"00 0.032 ‘ 
000033 
000084 

DPINO=0 * 

DHINO=0 . 

THINO=0 




000085“ 

000036 

000037 

clino=o 

GO TO 25 

24 DHINO- ( 1 • -BLK 1 ) *TM1*SIN ( CLCB) *H/ ( 2 •* { ( 1 •-HUKl ) *TM1*SIN (CLC8} +H) ) 



i 

Si- 

000038 

000089 

000090 

~ DINU = 1‘*-SI N (BBM1R ) /SIN ( K B M ID *B 8 Nfl R ) + CC OS ( K BMI D* B 8 M 1 R ) / 5 1 N' ( K 8 M 10 * 

1RBM1R ) -COS C 5BM1R) /SIN ( RBMlR ) ) ★SIN ( BBMlR ) / ( 2. *S0L1 ) 

DPINO-OIND ■ 



if 

K 

000091" 

000092 

000093 

25 ZX=20 

A2=(1.-BLK2) *3, 14159*02*92 
RBD=82/D2 



■ ■ * * - { . 

■ 000094“ 

000095 
000096 

lF(MZ-2) 30 » 31 » 32 ■ . 

• 30 RM2=SQRT ( 0 • 5* ( R2**2+RM1**2 ) ) 
S0LIP=CLIMP*2/(&.2S318*RM2) 



t 

"000097 
0C 0098 
000099 

SOLTO=SOL1+SOLIP 

PMC1=SQRT(0.5*CRM1**2+RC2**2>) * 

RMC2=SQRT ( 0 . 5* (RC2* *?+RC3**2) ) 



k: 

In 

■ 

000100’“' 

000101 

000102 

/ . RUC3=SQRT(Q.5*(RC3**2+RC**2) ) 

/ . TMCi=6.28318*RMCl/2*SlN<BBClR)-0,157 

TMC2=6*2? J -318+R^C2/Z*SIN'(BRC2R)-0.157 ' . . 



k 

k 

V: 

.000103 

000104 

000105 

TMC3=6.28318*RMC3/Z*SIN(BBC3R) -0*157 
RKRS=SQRT (0*5* (RC**2+RC2**2 > ) .... 

TMRS=6*283l8*RMRS/Z*SIN(BB2R5'-0.l57 



*■: 

% 

\v\ 

000 106“ 
000107 
000108 

HMCl=R2*f32/RC+ (RC-RMC1 > * (H-B2*R2/RC )/ ( RC-RM1) 
HMC2=R2*F}2/RC+(RC-RKC2) * (H-B?*R2/PC >/(RC-PMl) 
HMC3=R2*B2/RC+(RC-RMC3) * (M-B2*R2/RC ) / (RC-RM1) 

j 


k 

k: 

h 

0 0 0 1 jn 9 
000110 
000111 

HMRS=B2+(R2-RMRS> * <B2*R2/RC-B2>/ CP2-RC) 

DHIMP=0.5* (CLC1*TMC1+HMC1/(TMC1+HMC1)+CLC2*TMC2^HMC2/CTMC2+HKC2)+ 
lCLC3*TMC3*Hf.:C3/tTMC3+HMC3)+CLRS*TMRS*HKRS/(TMRS‘+HMRS) > /CL IMP 

i 


• is; 

.. _ 1? 

000112 
0 0*0113. 
C 0 0 1 1 4 

OHTOT=(CLIKP*DHINSP+CLlNO*DHIND)/CLTOf 

SM=CLC1*RMC1*SIN(BBC1R>+CLC2*'RMC2*SIN(RBC2R)+CLC3*RMC3*SIN(BBC3R) + 
1CLKS*RMRS*SIN(BB2R) 

i 

i. 


$ 

. .. i: 

'00 0115" 
000116 

GO TO 999 • • 

31 KP 1 = 0 *5 • 

; ; 1 


i: 

- 





C Ci 0 1 1 T 

000116 
000119 
000120 
"090121" 
000122 
000123 
*000124 
000125 
0U0126_ 
000127 
000120 
000129 
000130 ' 
000131 
000132 
DUG 133 
000134 
000135 
"000136 i 
000137 
000138 
”000139" 
000140 
0 0 0 1 4 1 
* 000142"* 
■000143 






50 r 1*100 


r>Ai r. ?j\ 


>R IV 


K^2=Kf : l ^ 
CLPi= ? ;>l*CLXMP 
CLP2=Kr>2*CLXMP 
GO TO 1 40 ' 


32 I F ( MZ**3 ) « 33 * 33 f 34 

33 ZDN=2 ( Z0+Z1 ) +Z2+Z 
KPi-O ’» 3.333 


KPd-tvn 

K. d 3=K°1 

clpi=<pi*climp 

CLP2=CLP1 
CLP3-CLP1 
GO TO. 40 


34 JF ( NZ ~4 ) ■ 35*35*999 

35 ZON~3»*(20+Z1)+2.*Z2+Z3+Z 

__ KP1=0*25 

KP2“/CP1 

KP3=KP1 

KP4=KP1 

CLP 1=KP1*C LIMP 
CLP2=CLP1 

CLP3=CLP1 

CLP4=CLP1 

4Q IF{CLP1-CLC1) 41*41# 42 
41 DLCU=CLC1-CLP1 


RP2=RC2-0.259+SIN<BBClR)*DLCll 
GO TO 50 


I 00 0144 

| ’ 000145 

I f, 000146 

I _0 00147 

0 0 0.148' 
000149 
000150 
000151 
000152 
I 000153 

•I ”000 154 

|h 000155 

i' 000156 


42 lF(CLPl-CLCl-CLC2)_43f43f44, ___ 

43 DLC21=CLC1+CLC2-CLP1 
RP2=RC3-0.707*SIN<3BC2R)*DLC21 

_ GO TO 50 

4 4 IF ( CLPX-C LT S )" 45 # 45V 46 
45*DLC31=CLT5-CLP1 

RP2-PC~Q.965*SimB8C3R >*DLC3 1 

GO TO 50 “ • 

46 0LR1=CLIMP-CLP1 ‘ 1 

RP2-R2-S IN ( BB2R ) *0LR1 _ 

'50' ’RM2-SQRT 1 0.5* ( RMI**2+R 0 2**2 ) ) 

50L2=CLP1* (Z0+Z1 ) / (6*2831 8*RM2 ) 

HM2=R2+02/RC+ (RC-RM2 ) * C H-32*R2/RC > / (RC-RMl ) 



000157 
000158 
000159 
~000 160 
000161 
J300162 
000163 
000164 
_0001 65 
000166 
000167 
CO 01 63 
000169" 
000170 
000171 
"000172" 
000173 
QUO 174 
000175“ 
000176 


IF (CLP 1-CLC I) 60 f 60761 
60 SN8 M 2 ~S I f J ( (3 B C 1 R ) 

GO TO 70 1 

61~ I F (CLP 1-CLC 1-CLC 2 3 62* 62 # 63 

62 SN3M2=(CLC1*SIN(BPC1R) + (CLC2-DLC21 > *SIN C|33C2R) )/CLPl * 

GO TO 70 : 

63" IF ( CLP 1-CLTS ) 64 *64*65 

64 SNBM2=(CLC1*SIN(B8C1R)+CLC2*SIN(8BC2R)+'(CLC3-DLC31)+5IN(BBC3R) )/CL 

_ 1P1 ’ * 

""go* TO 70 

65 SN3M2" (CLC1*SIN (BSC1R ) +CLC2*SIN(93C2R) +CLC3*SIN (3BC3R) + (CLRS-DLR1 ) 

1*5XN(BB2R) J/CLP1 

70" TM2=6. 2831 8*RM2/ ( Z0+Z1 ) *SN3M2-0 ,157 

DH2=TM2*HM2*0 * 5/ (TM2+HM2) ' " ” ■' “ v L 

_IF(.NZ-3) 75 * 76* 76 : : ■ ' ■' ‘ • 

7 5 PM 3z S G R tTo 5 * f R P 2* *2 +R 2 * * 2 ) > 

HM3=»2+(R2~RM3>* (R2*R2/RC-B2>/ (R2-RC) 

__ S0L3=CLP2*Z/ ( 6 . 2fl3l3*RM3) . 

S0LT0=S0L1+S0L2+S0L3" 

S0LIP=S0L2+S0L3 • . 




* 












>100 


HATE 20 APR 


PA 6E 


2^ 


000177 

000173 

80 

000179 

1 

0C0180 


000181 

81 

000132 

82 

CC0133 . 


COO 134 

83 

0 0 0 185 

84 

000186 


“ COu 107” 

85 

000138 

90 

000189 


000190 


000191 


000192 


"000193 


000194 

76 

000195 


OU 0 196 , 

100' 

000197 


000198 


'000199 “ 

101 

000200 

102 

000201 


000202 


000203 

103 

000204 

104 

* 000205 


000206 


000207 

' 105 

000208 


000209 

110 

000210 


000211 


000212 


000213 

1 

" ““000214 ‘ 


000215 

112 

• 000216 

113 

000217 


000210 

114 

000219 

115 

000220 

U7 

000221 


CO U 222 

118 

”000223 


000224 


000225 

116 

000226 ' 

119 

000227 


000228 


00 0229 ” 

120" 

000230 

300 

000231 

__121 

000232 


000233 

122 

000234 


000235 

" 130 

000236 



IF < CLP1-CLC 1 ) _j30 * 30 i-fll _. : 

SN3M3~~(DLCil*SIN (BSClR >+CLC2*SIN (R3C2R) +CLC3*SIN (B8C3R) +CLRS*$TN(8 


GO TO 90 .._ ' 

IF ( CL :> 1“CLCT-CLC2 ) 82/32.8$ 

SNUM3= ( DLC21*SIN (BBC2R ) +CLC3*SIN (R3C3R ) +Ct-RS*SIN(BB2R > ) /CLP2 
GO TO 90 
IF(CLPI-CLTS) 

SNiJM3 :: ( DL 
GO TO 90 
SN6M3’=SIN(BB2R) 


84 r 84 1*65 

»C31*SINt3BC3R)+CLRS*SIN(BB2R>>/CLP2 


157 


TM3r6.28318*RM3/Z*SNBM3-0i 

DK3-TF3*HM3*0 . 5/ ( TM3+HM3 ) 

D K I KP - ( C L P 1 * OH 2 + C LP2 •* 0 H 3 > /CL IMP 
DHTOT-=(CLIND*DHINO+CLIMP*DHIMP)/CLTOT 

SM= ( CLPl Jt RM2* ( 20 + 21 > *SMBM2+CLP2*RM3*Z*SNBM3) / Z 

'GO TO 999 ■ •' 

CTRY=CLP1+CLP2 

IFCCTRY-CLC1) 100*100*101 „ _/ ‘ : 

"0LC12::CLC1~CTRY 
RP3=RC2-0 . 259*SIN (8BC.1R) *DLC12 

GO TO 110 L 

IF(CTRY-CLC1-CLC2) 102 p 1 02 * 103 
DLC22=CLC1+CLC2-CTRY 

rP3=RC3-0 « 707+SIN (BBC2R) *DLC22 : 

GO TO 110 

IF ( CTRY-CLTS) 104p104*1C5 

0LC32=CLTS-CTRY ' 

rP3=RC-0 . 965*SIN (3BC3R) *0LC32 
GO TC 110 

DLR2=CLIMP-CTRY 

'RP3=R2-SIN(B32R>*DLR2 
RM3-50RT ( 0 • 5* ( RP2**2+RP3**2 ) ) 

HM 3 =R 2 * B 2/ K C + < R C -R M 3 ) * ( H-B2 * R 2 /R C ) / (RCj^RM 1 )_ __ 

S0L3=CLP2* (Z0+Z1+Z2) / ( 6* 28318*RM3 j " 

IF(CTRY-CLCI) 111 * Ill * 112 

SN3M3=SIW(BDC1R) „ 1 i_ 

“GO TO 130 

IF (CTRY-CLC1-CLC2) 113 p 113*114 

SNBK3= ( ( CLC2-0LC22 ) +SIM ( BBC2R) +_< CJLC 1-.CLP lj L*SJ!H BB^ 

GO TO 130 ^ 

IF ( CTRY-CLTS ) 115*115*116 

iFtCLCl-CLPl) 117*117*118 

' SN'BM3=(0LC2i+SIN(BBC2R) + (CLtS-DLC32)*SIN(E 3C3R).) /C.LP2 . 

GO TO 130 

SNBM3=( <CLC1-CLP1>_*SIN(BBC " 

13R)J/CLP2 
GO TO 130 

IFtCLCl-CLPl) 120 f 120* 119 


r 

£ 

- 4 - 


13R) + (CLRS-DLR2 ) *5IN (BB2R ) ) /CLP2 

GO TO 130 _ 

" IF ( CLC1+CLC2-CLP1 ) 121 p 121 * 122 
FORMAT (//10Xf »LC1+LC2-LP1 IS ZERO OR 

V/RITE ( 3 r 300 ) 

GO TO 999 


1R))/CLP2 

T M 3 = 6 « 2 8 3 1 8 * R M 3/ ( Z 0 + Z 1 + Z 2 )" * S MB M 3 - 0 • 1 5 7 
DH3=TM3*HM3*0 « 5/ ( TM3+HM3) 


NEGATIVE* NZ=3'#//> 



HAIL ?.t i 


135*13S*i_36 1 

135" R V 4 is *. ’ R T ' 0 . 5 * ( R P 3 * * 2 + R 2 * * 2 ) > 

HM4;:p2 + IR2-RV.4 ) * (32+R2/RC-32) / (R2-RC ) 

S0L4"CLP3*Z/(6.28318*Rwi4> _1 _ 

SO- TO" SduT+ SO L 2 + SOL 3 + S 0 L 4 

SOLIP"SOLTO-SOL1 ‘ ' ' ' ■ ' ' “■■ 

IF (C*f irY-CLCl ) 140*140*141 

~W0 SWtjv74 = ( DL.C 12 * SI N ( BBC1R ) +'cCC2*5IN ( BBC2R ) +CLC3*SIM ( BBC3R > +CLRS+SIN ( B 
1B2R:-;/CLP3 

GO TO ISO : 

J.41 I F ( C 7 R Y - C LC 1 -C LC 2 ) 142~*142tl43 

142 StW'4=(DLC22*SIN(BBC2R)+CLC3*SIN(3BC3R3+CLRS*SIN(B32R) )/CLP3 

GO TO ISO _ 

”143" Ir (CTRY-GLTS) 144*144*145 
344 S^BM4~<DLC32*SIN(BBC3R)*CLRS*SIN(S32R> )/CLP3 

GO TO ISO 

1 4 5~ S N B M 4«- S I M < D 3 2 R ) 

150 TM4=6.28318*PM4/Z*SNBM4 

DH 4 =TM 4 * H M 4 * 0 . 5/ ( T M 4 +H M 4 ) - ; 

DH I P ( C LP 1 ■+ D H 2 + C LP2 * D H 3 + CfL P 3 * DH 4 ) / C L I MP 
DHTOT=tCLlN , D*DHirJO+CLIMP*OHIMP)/CLTOT 

SV : = ( CLPi *RM2* { ZC+Zi > *SNBM2+CLP2*RM3* t ZO+2 1+Z 2 ? *SN0M3^CLP3*R_M4*Z*SN_ 

* 1RM4 ) /Z ' 

GO TO 999 ‘ 

136 CLPTLCLP1 + CLP2+CLP3 ___ 

IF ( CLP T -CLC 1-CLC2 > ’160*160*161 

160 OL C 2 3 =C L C 1 + C L C 2 -*C LPT 

RP4=RC3-C . 707*SI N ( BBC2R ) *DLC23 ' 

GO TO 165 " " ’ ~ • ■ 

161 IF(CLPT-CLTS) I62*162>163 

162 DLC33=CLTS-CLPT ' 

p P 4 := R C - 0 . 9 6 5 * S I N ( B BC 3RT*0CC~33 

GO. TO 165 ; ■' 

163 0UR3::CUIWP-CLPT ■ _ 

RP4=R2-SIH(BB2R)>0LR'3 ™ 

165 RM4=SQRT(C.5* (RP4**2+RP3**2>.) 

HK4=R2/RC*B-2-HRC-RM4)*(H-B2*R2/RC) /Cp C-R ^ l) ' ' ' , ■ __ 

SOL4-CLP3*{ZO+Zl+Z 2 "+ Z 3’ ) 7 <6 • 2 8 3 i~8 *R"M 45 
IF(CLPT-CLC1-CLC2) .170*170*171 

170 IF (CL.C1-CLP1-CLP2) 172*1 72*173 

""17 2 S NB y>4=S I N ( B B C 2 R ) 

GO TO 190 . • ’ 

173 SNBM4= ( DLC12*SIN EBBCIR) + ( CLC2-DLC23 ) *SIN t RBC 2R) ) /C L Q 3 1_ 

"GO TO 190 " " . ' 

17.1 IF(CLPT-CLTS) 174*174*175 

174 IF (CLC 1-CLP1-CLP2 ) 176 * 176 * 177 ' 

“176' SN!3M4='< DLC'22*SIN ( B B C 2 R I'-R'C ITC 3 -DUG 33 J* St N ( BBC3RTT7CL°3 

GO TO 190 ‘ 

1 77 SNBM 4= < DLC 1 2 * S I N < BBC 1R ) +CLC2*SI N ( S3 C 2R) + ( CUC3-0LC33) *SIN(3 BC3R > )/ 

1CLP3 : 

GO TO 190 

175 IF (CLC1+CLC2-CLP1— CLP2) 179 *J.79*J.78 ; 

17a S N B M 4 = ( 0 L C 2 2 * S IN (BBC2R ) +CLC3*SIN (PBC3R ) + ( CLRS-DLR3) *SIN ( BB2R ) ) /CLP 

13 

GO TO 190 

1791 F ( C L t S - CLP 1 ** C L P 2 ) ISO # 1 80 f 181 

301 FORMAT ( //10X f * LTS-(LPl+LP2) IS ZERO OR FEGATI VE ^ NZ=4 ♦ r //) 

180 WRITE ( 3? 301) 

GO TO 999 

181 SNBM4=(DLC32*SIN(B3C3R> + {CLRS-DLR3>*SXN(!vR2R) 5/CLP3 






’ !>< : .UNL!» * *•« '•* * l * 100.. 


*DATE "ToT hPlTl? ' >A<r*“ 


Q ELT INPUT *1*7 10427 > 63111’ • 


SUBROUTINE’ INPUT 

R EAL. KBMID" ;■ ‘ _ __ 

COMMON i XK<8) *XZ<3) *XFR(6) *XR(8> 

COMMON DHl»RMlrH»RAfRC»BBMl#CLlN0»THrN0»2LfDHlND»BLKl»Alf 'ABlrOPINO 

1 j BBC 1 f BBC2 *,58C3 * CLC 1 * CLC2 * CLC3 *_CLTS * T„HC U THC2 »JHC3 *THTS *CLRS * THRS *_ 

2CLIMP rTHIKP^ CUT0trfHT0TrBLk2rA2r SOLI r SOLS fS0U3fS0L4f SOLS »S0LIP#S0U 
3TO*OH2fDH3* , DH4*DH5*DHlMP*DBTOT*RP2*RP3*RP4*SM*QI*SlG*OR*CM2*SCL 

COM, MO v[_ DTI- * EPS * 02 r 32 * S5T1 _* B82_* ZtZOjZ U IP-,*. 7,3 * Z4 *NZ*K3MIQ r XSI * DP IMP 

COMMON "irlP /Xn/rHO *CK U HNPSH i HTOT * PH I MM - VHKM * ETAHI *PSITH f ESHR f PWR 
COMMON ’XKPHlfPHI21»PHl22FPHI23f CM3 * UTl * PHTlTf St XNS*PSI0*PHI2 p NCASE 
COMMON FLAG*VIS*FLAC0*WWR*U2*PSinL*0PIPS*PSIIP*PSIIN*FRD 

common b47rl /rex 7m l beta/bfUa / zb */ d i n l t To i' sth * ti n * tout /xl /vs * 

IRAOUS (95) * THETA * RADTH* ALPHA * RAD * DELTA * GAMMA * ARO* RAR * RLOC * CVAN* 

2ANV AN * BKt3 * DIFBC>RDIS* ADIS* THICK >THI CO *STANG*TRACO* SOLID *BBM4* „ ; 

3RBM5 f FEE * ACROS * AEW * ABSl * DH t AR * ATHT * PI * NOGO * NSK IP * OPTFI f PR I NT * FI2 
COMMON RIOPT * RIBM * RIBL* RISH* DEL* BFL5* DEQ * RMTH* OMPR * OME'W * OMOV 
COMMON V4 * M > XKDVD * XK l VD * XKFVD * E VD * FLA * XKQD fOfODf OMTOT_ 

COMMON "RPHOf SSTHGfFSTHGf XKSFSrXKMSCf D^*D7f C7rDPSSCf 0PSFS>DPSMCfC34 
COMMON RLBET * RLZD * SBET A, SZD * PSHSG * ETAOV > LOOP * FLAHG >00 

COMMON CLUT *FINC * BEl 0 * RRRM *J09* RB$7* THRV > ZRV * ROSV * TEX5 *DLDM*BCM5. 

f FORV,AT(iOFfl.3) 

READ (2 * 1) WP r XN * RHO * OKI * HNPSH r HTOT * E D S > PH IMN * B32 * VHKM 

_5l_0_F ORM AT ( 7F6 • 3 * 1 6 * F6 • 4 * 3F6 • 3 * F8 * 5_) . . ' 

READ ( 2 * BIO ) SOLI /ZO Vz 1 tZZ /Z3 > Z4 * KBMID * NZ * SCL * S I G * DR i FLAG > FLACO 
520 FORMAT ( 12F6*4 >E8*4 ) 

READ (2 * 520 > XKPH1 > PHI 21 >P_HI22 * PH I 23 » ETAHI * Z*XKQQ *J)INLT*_RL > REX *_RLBE 

“It > RLZD f XKMSC ‘ ' ‘ * "" ” ” “* 

530 FORMAT (4F6.3rF12.4fF6. 3* F*. 3* F10 . 4 * £10 *4) 

_ READ ( 2 r 530 ) OPTFI » SBET A * SZD *FRD > FL A * RPHG > FSTHG * SSTHG * V IS 

54 0 " F OR MAT ( E 8 * 3 /4 F 8 . 4 /E l 0 • 4 r 5 F 6 • 3 ) ' 

READ ( 2 r 540 ) XKFVD > XKDVD > XK1VD > EVD » FLAHG r XKSFS> CLUT fFINC > BE10 > ZRV > 

109 ; : 

“5^6 FORMAT (5F6. 3) *• 

READ ( 2 t 550 ) B9> RBRM# RB67> THRV t RDSV 

4_ FORMAT ( 1H1 ) _ : 

2 FO RM A T ( 5 X / * * * ★* * * "I NPU T ******•//) r 

10 FORMAT ( IX r f FLOW RATE t WP* > 23X > Flo • 3 > 2X > ♦ LB/SEC 1 9 BX>»DIFF BLADE IN' 

1LET THICKNESS > D INLT » > 7X > F 10 . 3 > 2X > * INCH » ) 

12 FORMAT UXf ’TOTAL HEAD RISE r HTOT • > 15X > F id. 3 1 2X f * FT » » 12X r * D I FF LENG 
1TH TO THROAT RATIO > RL * > 9X > FI 0 . 3 1 2X > * *** * ) 

14 FORMAT ( IX > * ROTATIONAL SPEED > XN 1 > 1 6:< > F 1 0 • 3_> 2X 1 I.Xl’. P. ^ FF_ EX P.-A 

INS I ON RATIO > REX* fl!5Xf c 10.3f2X» ***** ) 

16 FORMAT ( IX > * NET POSITIVE SUCTION HEAD* HNPSH * > 4X >F1 0 . 3 * 2X > * FT * > 12X > 

1* RANGE* DIFFUSER INLET BLADE _ ANGLE* RLBET* * FI 0.3* 2X> ***** ) . 

"18 FORMAT ( IX t 1 FACTOR RECIRC FLOW’/ ' IMPELLER > OKT’/ oX* F 1073* 2X * Til 

IX r* MAX DIFF BLADE NUMBER* RLZD * * 13X * F 10 . 3 * 2X * * *** * ) 

20 FORMAT ( IX ** FACTOR RECIRC FLOW* DIFFUSER * XKOP* * 2X > F 10 * 3 * 2X **** *** 1 

llX* * SURFACE” ’FINISH’/ ’ "IMPELLER# XKMSC* 9X *E1 0 • 4 * 2X * 1 IN* ) 

21 FORMAT (63X** FLOW COEFFICIENT FACTOR* XKPH1 ** 10X * F10 . 3 * 2X ****** ) 

22 FORMAT ( IX * * FLUID DENSITY* RHO * * lftX * F 1 0 .3f2X LB/FT* *3 *.) 

24 FORMAT ( IX ** FLUID DYNAMIC VISCOSITY* VIS » * GX * E10 . 4 * 2X * * LB*S/SOFT * ) 

26 FORMAT ( IX * * IMPELLER INLET HUB RATIO* EPS » * 7X * F10 • 3 * 2X * * *** f * 1 IX # ♦ B 

1LADE TIP CLEARANCE t SCL * * 16X * FI 0 . 3 * 2X * * INCH * ) 

""28 FORMAT (IX* * INDUCER SOL IOITY * SOLI ♦* i^X * F 10 . 3 r 2X ******* 1 IX >* DIFF LO 
1G SPIRAL ANGLE* SELECTED* SBETA * * 2X * FI 0 . 3 * 2X * * DEG * ) 





; DNLR * ^ u< K 6 D * \ * J 
' . 1 i .', ■ 




DATE HO APR 72 PAGE 


27 


_J>00057_ 
000050 
000059 
000060 
000061 
000062 . 
000063 
“000064 " 
000065 
_ 000066_ 
'0 00067 
Q 00068 
C 00069 _ 
'"'0.0 0 0 70' 
000071 
_0OQ072_ 
000073 
00 0 074 
_ 0 0 0075 
"0 0 0076"". 
000077 
000078 _ 
“0 00079 

oouoao 
000081 
"000 062 '“ 
0000.03 
* 0 00084 
'"000085"" 
000086 
J)U0037 
00 U 088 ” 
000089 
_0UU090 
000091 ~ 
000092 
000093 
”000094 
000095 
000096 
“000097 " 
000098 
OOOC99 

"c U 0 1 0 0 
0001 01 


30 FORMA r ax * ’■! MP_M X N_ I NLET_T I P FLO W_C OFFF ♦ JH I VN 1 X * FiO * 3 * 2X 

UiX-U'IFF , BLADE NUMBER* SELECTED, S20 **Yx/ FI 6'.' 3*2x7* **** >“" 

32 FOSMATdXf f MIN CAVITATION PARAMETER* VMKM * * 6X > F10 • 3 * 2X ****** } 

_34 .FORv^QX* ’IMP DISCHAR 
iPiUCVl ON COEFF > DIFFUS 
36 FORMAT ( IX* ’ IMP# BLADE ANGLE DISTR FACTOR* K3MID ♦ * IX * FI 0 *3 * 2X * * *** * * 
1UX. 11 I/OLUTE, SURFACE FINISH* XKSFS* > 12X * E 10 . 4 f 2X * * ** * *> 

38 FORMAT ( IX * 1 TOT NUMBER" OF' I MP BLADES V Z’ 7 9X f F10'.3r2XV* *** *Tilx7»bT 
IFF LOSS ADJUSTMENT FACTOR* FLA * * 8X * r 10 « 3 » 2X * **+**) 


GE_ BLADE ANGLE *_ BR2* * 6X *F10. 3* 2X* *OEG* * 11X* » 
ER * FRO * * 1 1 X * FI 0 * 4 * 2X * * *7* ’ ) 


40_FORiv1AniXr »,INITIAL HYDRAULIC EFFICIENCY , ETAHI ** IX * = 1 0 . 3 *2X * ♦ *** ♦ )_ 

42 forma r ( ix r * impeller configuration/ flag* /8x7fio.372x* »*#V*7iix7*ma 
IX TO OESIGN: PRESSURE RATIO* RPHG* * 6X*F10,3*?X* ***** > 

jl.?. FORMAT ( IX f’pAOIAL EXTENSION OF IMP DISK* DR* *4X*F10*3*2X* * INCH * * 10 

IX# * HOUSING MATERIAL YIELD STRENGTH* SSTH3 * * 2X * FI 0 ♦3) 

46 FORMA T ( 1 X * * LABYRINTH CLEARANCE FACTOR* FLACO * * 3X * Fi () . 5 * 2X* * *** * * 11 

1X*»H0USG SAFETY FACTOR* F5THG r * 1 4X * F10 . 3 * PX * ***♦*) 

48 FORMAT {'IX* *TIP CLEARANCE" LOSS' FACTOR*" SI 3 * V 6X * F 1 0 . 3 * 2 X * •“****")' 

50 FORMAT ( IX * * FLOW COEFFICIENT OPTIMIZATION* OPTFI * IX * Fl‘0 • 3 * 15X * * IN'LE 

IT 3 L A DE TH I C !< NESS * JHR V * * 1 3 X * F 1 0 . 3 * 2 X *.* I N * ) 

54 • FORMAT (IX* 1 PM 1 2 1 = * » F 8 . 4 , 5X * * Phi 1 22 = ’ * F8. 4 * 5 X * * PH I 23= *F8 • 4 * 1 0 X * "* R E V E~ 
1RSING VANE DISCHARGE DI A * 09* * 8X * F10 . 3* 2X* * IN* ) 

55 FORMAT (IX* * HOUSING CONFIGURATION* . FL AH G *.*3X *F1 0 ..3 * 2X *.****„V 1 IX * * SU_ 

1RFACE FINISH* DIFFUSER* XKFVD * * 9X * El 0 . 4 * 2X * * *** * ) 

57 FORMAT (63X * ’DIFFUSION LOSS FACTOR* DIFFUSER* XKDVD* * 2X * Ft 0 . 3 * 2X * ** 
1** * ) 

"59 FORMAT! 6 3 X * * IN C I D E N C E L 0 S 5 ~F A CTO R * DIF FUSE R *~ X kT V D *~ *"^2 ^*~fT 0V3 *~2 x7 * 
1***) 

ALf 0R MAT(63X*.;DJFFUSl0N EXPONENT.*, DIFFUSER* EVO* *7X*Flo.3*2X* *****) 

69 FORMAT(63X * ’RATIO B/RM U-TURN* R R R M * » 1 7 X * F 1 0 • 3*2 X * *7 * * ’ ) 

73 FORMAT (63X* ’PORT WIDTH REVERS VANE DISCHARGE* 39* *4X*F10 . 3*2X* * IN 
1* ) ______ 

*75 "FORMA T (63X * * RAT 10 B6/B 7* ’ RB 67 *' * 23X *>10 * 3 *2 X *>*** » )~ 

77 FORMAT (63X* *FRIC LOSS COEFF* VANELESS TlJRM* CLUT * * 4X *F10 . 5 * 2X* ’ *** 
1*) 

7 9 " F 0 RM A T ( 63 X * . * OPT I ON AL " INPUT*" - R ETUR N “c H A NT I EL*") : 

81 FORMAT (63X* ’NUMBER OF REVERSING VANEO* ZRV* *10X*F10«3*2X* ***** ) 

65 FORMAT (63X* ’DIAMETER RATIO D5V/D9 ** 19X*F\0 . 3* 2X ****** ) 

103' FORMAT (63X*"’ FLUID ANGLE' REVERS VANE ' DISCHARGE* BEIO*'* IX *^10^372x7” 
1DEG ’ ) 

JOS FORMAT ( IX* *Z0=* *F3.1*5X* *Z1 = * *F3*1*5X* *Z2 = * *F4. 1 * 5>f * ’Z3=* *F4_.1*5X 
1* *Z4=* *F4.1*9X* ’ANGLE CORRECTION FACTOR / FI NC * *Yl X * Fl 0 ♦ 3 * 2X V ’ *** * / 
2) 

_ 106 FORMAT f 1X**F3LADE SCHEDULE* MZ =**I2*/)'. ■ ' ' ' ; 

200 FORMAT (IX* ’ALTERNATE FLOW COEFFICIENTS’) ’ ' ‘ " ' 

. WRITE ( 3 * 4 ) . 


000102 

WR I IE ( 3 * 2 ) 


000103 

WRITE ( 3 * 10 ) 

WPfDIMLT 

000104 

WRITE ^ 3 * 12 ) 

HTOTrRL 

000105 

WRITE f 3 * 14 ) 

XN * REX 

000106 

WRITE ( 3 * 16 ) 

HNPSH * RL 3 ET 

000107 

WRITE( 3 * 18 ) 

QKI * RLZD 

000108 

WRITE ( 3 * 20 ) 

XKQD * XKMSC 

oooi;)9 

WRITE ( 3 * 21 ) 

XKPH 1 

000110 

WRITE (3 * 22 ) 

RHO 

0 UU 111 

WRITE ( 3 * 24 ) 

VIS 

000112 

WRITE ( 3 * 26 ) 

EPS * SCL 

000113 

WRITE ( 3 * 28 ) 

SOLI *SBETA 

000114 

WR I 7 E ( 3 r 30 ) 

PH I MM * SZD 

000115 

WRITE( 3 * 32 ) 

VHKM 

000116 

WRITE< 3 * 34 ) 

BB 2 * FRD 













P 1 *>100. 


TATE 28 API? 7 > PA?-' 


g £LT~ XNT4» 1 > 710427 > 63113 


' 000001 " 
000002 
000003 
"000004 
000005 
00 0005 


"SUBROUTINE* I NT4T5TfT#X TV yo) ' “ ^6^20500^“ 

DIMENSION X(9) fY(9) *XC(4 ) fYC(4) * 61205005 

EQUIVALENCE (XC < 1 ) * XI > * ( XC (25 , X2 ) * (XC (3> > X3) > (XC (4) r X4) ti YC (1 ) >Y1 5 61205006 


If (YC(2> fY2) < 
NA-1 


(YC(3)VY3 > "f (YC(4)VY4T 


61205007 


C000C7 

" 

B-XI 

61205010 




000000 

21 

IF ( X ( J) ) 26 f 22 1 26 

61205011 



k 

0U0009 

26 

GO TO ( 30 r 40 ) f NA 




r. 

_ .. 

000010 

“ 22 

IF ( Y ( J) ) 26 > 23 > 26 

61205013 




000011 

23 

lF(J~2)24r24>25 

61205014 




000012 

24 

YE=0.,0 ■ . • 

61205015 




000013 


~GO- TO 50 

61205016 




000014 

25 

N8=l 




t 

000015 


J=J-1 

61205018 



b 

OU001‘6 , 

27 

Xl=X(J) 

61205019 . 


/ 

¥ 

000017 


X2-X ( J-l } 

6120502.0 ' 



l; \ 

000018 


X3=X(J-2) 

61205021 ' 



1 

000019 


Y1=Y(J) 

61205022 


| 

r 

000020 


Y2-Y ( J-l } 

61205023 


, 

£ 

000021 


Y3~Y { J-2 ) 

61205024 • 


1 

i 

000022 


GO T0(32r 42) *NB 




i' 

000023 

30 

Ir (X (U ) -B) 29 r 37 r 37 

61205026 



I 

000024 

37 

IF (J-2) 31 r 31 r 28 

61205027 

. 


000025 

’ 28 

NA=2 ‘ 




1. 

p 

000026 

29 

J=J+1 

61205029 



000027 


GO TO 21 

61205030 


‘ 

pc 

"000 023"”' 

: 31 

DO 60 J=lr3 

61205031 



r: 

000 02-9 


XC<J)=X(J> ■ 

61205032 



l' 

000030 

60 

YC(J)=Y(J) 

61205033 



jjt : 

000031 

“ 32“ 

D-X2-X1 

61205034 




000032 


Al=B-Xl 

61205035 



f 

000033 


A2=0-X2 

61205036 





00UC34 


YE=Al*A2/2 • 07TJ#TIY3“Y5 r7T"X3-xTT ;: TY2-Yry7D ) -A2/D*Y1+A1/D*Y2 

61205037" 




000035 


GO TO 50 

61205038 



■ t 

CO 0036 

40_ 

NB=2 




(v 

000037 


GO TO 27 

61205040 



i 

000038 

42 

X4=X(J-3) 

61205041 




000039 


Y4=Y( J-3) 

‘61205042 



f- 

000040 


0=X3-X2 

61205043 



i 

000041 


A 1 -B-X2 

61205044 . 



h 

CO 0042 


A2=B-X3 

61205045 



$ 

000043 


XM12= ( Y2-Y 1 ) / ( X2-X1 ) 

61205046 



1 

000044 


X^23=(Y3«Y2)/D * 

61205047 



if 

000045 


XM34=( Y4-Y3)/(X4-X3) 

61205048 



r 

000046 


YE=Al*A2**2/2 • 0/D**2* f XMI2-XM23 ) +A2*Al**2/2« 0/D**2* (XM34-XM23) 

-A2*61205049 



1 

000047 


1Y2/D+A1*Y3/D 

61205050 ‘ 




000048 

5_0_ 

YO=YE 

61205051- 



jif 

000049" 7 " 


RETURN 

61205052 



tl: 

000050 


END ’ 

61205053 










f' 





SUBROUTINE LOSS! 

DIVISION' X(19) f Y ( 19) 

COMi-IO'J XK(8) > XZ(8> > XFR C 8)_# XR ( 8> ' ’ x - * " * " * • ‘ * ’ Y ' 1 * - " ' % • 

COY *0:4 DHI "t RMlV'HfRAfRCf B3M1 » CLTnoTYhIND p ZU> DHlNOf BLY1 f Al* ABlrDPIND 
It SBCl/BaC2rB0C3rCLClfCLC2*CLC3f CLTS»THCl»THC2»THC3f THTS»CLRSrTHRS» 
__2CLIyPf TKiyP,»CLTOTf THT0Tp0LK2f A?.fS0Ll_»S0U2f SOLD* S0L4? SOLS/_SCUJi^SOL_ 
3T0 t OM2'f 0H3‘f DHU . DH5 » DHI M P*r Q H ToYr RP 2~ • R P 3 p R P L t SM > 0 1 1 SI'S > DR * CM2 * SCL 


DTlf EPSf D2r B3T1 f BB2>Zf ZOf Zlf Z2r ;’3fZ4*NZf KBMIDf XSIf DPIMP 

WP t XN • RHO f QK I f HNPSH f HTOT t PHI MM > VHKM f ETAHI t PSI TH , ESHR * RWR 

X<PHi f PHI 21 f PHI 22 f PHI 23 f CM.I fWl/pHI IT r S> XMS » PSIO > °HI2 1 NCASE 
FLAGf VISf PLACOf WWRf U2fPSl3L»0PIPSfPSIIPfP5IINf FRD 
fJ4 fRLf REX • R4 > BETA r BFL4f ZD f PI-\'LT p DISTH > TIN r TOUT > XLf V5# 


000020 

common CLUT 

000021 

500 FORMA*’’ ( 10: 

000022 

x(i)=:.o 

0.00023 

Y ( 1 ) = • 004 

000024 

X (.2) =1 .2 

000025 

Y ( 2 j = • 0 042 

COO 026 

X(3)=l*4 

000027 

Y { 3 ) r • 0055 

1)00 028 

X ( 4 ) = 1 * 6 

000029 ? 

Y ( 4 ) - • 0085 

00 00 30 

X ( 5 ) :z 1 * 8 

000031 

Y ( b) r • 0132 

000032 ; 

X(6)=2.0 

000033 

Y(6)=«02 

000034 

X { 7 ) ~?. * i 

000038 

Y(7)=.026 

000036 

X(B)=2.2 

0UUC37 

Y ( 8) = * 032 

CO 0038 

X<9)=2.3 

000039 

Y ( 9) = . 0405 

00 C 040 

X ( 10 ) =2 « 4 

000041 

Y(10)=.05 

000042 

X ( 11 ) -2* 5 

“COO 043 

Y ( 11 ) - ♦ 064 

000044 

X Q2)=2.6 

000048 

Y ( 12)=. 03 

"C0UC46 

X ( 13 ) =2 • 7 

000047 

Y ( 13 ) = . 10 1 

C0004O 

X ( 14 > =2 * 75 

0G00>9 

Y(l4)=.li4 

000050 

X ( 15) =2.3 

00CC51 

Y ( 15) -• 13 

000052 

X ( 16) =2 • 85 

000053 

Y ( 16) =* 149 

000054 

X (17)=2.9 

000055 

Y (17)=. 174 

000056 

X ( 18 ) =2 • 95 


COMMON 

COMMON 
"common 

COMMON 

COMMON _ _ 

1RADUSV95 ) f THETA'f RADTH V'ALPHA r RAD r DELTA V GAMMA * ARO t RAR r RLOC t CVAN r 
2 AMVAMfBKDfDIF3CfRDISf ADIS f THICK fTHtCOfSTANGf TRACOf SOLID 

3DBMS/FEEf ACROSr AEWf ABSlfDHr ARf ATHT p R I • NOGO * NSK I P f OpTF I r. p R I N.T.fZJ-?. 

" COMMON R I OP T » R I DM rR IBL t R I RH f DSL * f?FL5 p DEO p r 'M TH » OMPR f OME W r OMOV 

COMMON V'lfMf XKDVDrXKlVDtXKFVOfSYDfFLAf XKQD » 0» QD f OMTOT 

^COMMON RPHG r SSTHS r FSTHG . XKSFS » Xl< MSC f D6 p 07 f C7 p. DPSSC r DPSFS_r DPSMC#C3£_. 

COMMON 'RLGLT , RL2D p”Sf3ETA * SZD p PSH5G p ETAOV p LOOP p FLAHG p 99 

FINCfBElOf RRRMf D9fRB67f THRVf ZRVfR0SVfTEX5 p DLDM t BCM5 
p» INCIDENCE LESS THAN OPTIMUM 1 / ) 
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000059 

000060 

“"uouo&i 
0 00 0.62 

000063 

'■"000064 

000065 

000066 

"”000067 

000063 

000069 

000070 “ 
000071 

000072 

— 000 07 3 ' 
000074 
000075 _____ 

000076 * 

000077 
0 0 0 0 7 3 _ 

000079 

ouoooo 

000081 

UC0032' 

■0 00083 

000034 

000035 

CO 0036 
000037 _ 
— "'000030 
000009 

00 0090 

00U091 

000092 
000093 __ 

000094 

000095 

00C096_ 

000097 

000098 


• . _____________________ 

Y C 10 ).v» ? ^ — i — : * •" 

I§!§ 

rrv - t ~ , 

— - rI=BF!- 4-1*8M 4 ' . v ’ 

irtRI-^Q p J»3'5.6 _____ - 

3 XF (PRINT ) 6,'6' 4 * ' •; 

'V WRITE 13* E; 00 5 — r-r — - 

6 rI 3K=^I/ ( 90 .rBOMRl r~ 

60 TO 7 • ~ 

^'SggBSKK^s* — — 
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*8 RETURN 
END 





Q ELT MAIN * 1 r 710427 p 63118 


DIM£ N l;ION PSIHG ( 12) f T8ETA ( 12) p TZQ ( 12) >020(10) pOBETA(IO) pOET/WIO) 
DIMENSION 0PHI2 ( 10) 

COMMON ' XK (8) >XZ(8) p XFR ( 8)_> XR ( fij 

C0Mk6n”DH1*RM1 pHpRA f ROBBMl p CLINQ p THINDp ZLp DHIND p3L‘<1 p A1 » AB1 pDPINQ 
IfBBCI -BDC2>BBC3»CLCifCLC2>CLC3>CLTSrTHCl>THC2>THC3>THTSfCLRS>THRS> 

2CL I MP t TH IMP.pCLTOT > THTOT r RLK2 » A2 » SOL 1 > SOL? > S0L3 > S0L4 r 50L5 > SOL.TP f.50L„ 

3T0 f DH ?."* DH3 VdK4 f DH5 f DHI V.P t OHT 07 > RP2 > RP3 p RP4 > SM f QI > SIG > OR > CM2 pSCL 
COMMO'I DTl p'EPS »D2 1 B2 pRBTl f 3B2 f 2 f 20 p Z1 p.Z2p 23 p 24 ? NZ p K3MIDp XSI f DPIMP 

COMMON WPrXN>RHOf OKI rHNPSH>HT07f PHI V.Nf VHKMtrxAHI r PS IJH * E.SHR# PVR 

" CCMMO-M* X.KPHlrPHI21f PHI 22 pPHXJ>3p CMIpUTIp PHI if p S p XNSpPSIOp PHI2f NCASE 
COMMON FLAG p VIS rFLACO t WWRi U2r PSIBL > QPIPS p PSI IP p PSI IN p FRD 

____ COMMON 84fRL?REX p R4fBETA p RFL 4 p ZD p PINLT p RTS TM p TIN p TO JT p XL p.V5 p 

lRADUS (95 ) pTHETApRADTHf ALPHA r RAO p DELTA p GAMMA pAROpRARpRLOCpCVANp 
2 ANVAN t fiK.n » R5 p RDIS » AD IS r THICK f THICO f STANG p TRACO p SOL ID p B3M4 p 

3BBM5 f FEE r ACROS f AEV/ r ARSl t DH t AR » ATHRC f R I f NOGO t NSKIP » 0‘ :, TF I p PR INT p.FJ.2. 

" ' COMMON R I OP T p R I B M p R I B L-f R I B H r D E L p n F L 5 p DE 0 p R MTH p OM PR t DME w P OM 0 V 

COMMON V4 r M P XKDVD f XK 1 VD p XKFVO p EVD f FLA t XKOD p 0 f OD f OMTOT 

COMMON RPHG p SSTHG f FSTHG p XKSFS p XK-VSC f D6 p_D7 p C7 f DPSSC p OPSFS > P P S.MC p_C 34_ 

COMMON RLBET f RL2D f SBET A p SZD p PSHSG f ET AOV f LOOP t FLAHG p 39 

COMMON CLUTfFINCfBE10f^BRMfD9fRR67fTHRVfZRVfRDSVfTEX5 pDLDMpBCMS 

__1 FORMAT ( 8F10 ♦ 0 / • 

"' READ < 2 p 1 ) XK p X 2 V X F R p X R 

400 CALL INPUT 

__ NCASE-o : ; 

"nex=o ‘ 

MTEST=0 

K-0 . t __ 

>’060=0 _ . . 

IF (WP) 40 Ip 500 >401 

401 CALL SI2E1 _ _ 

IF -t NO GO) "404T404 p405 ’ 

405 WRITE ( 3 f 406 ) 

_406 FORMAT ( //////5Xp t INPUT VALUE OF 3 32 NOT A CCEPTABLE* r////) ■ 

"GO ’TO 400 
404 1=0 

I F ( PH 1 2 1 ) _2 8 0^_2C_0j 2J_9 . 

"279 OPTF> = 0 "" 

225 IF(NCASE-l) 226 f 223 * 230 

_226_PH 1 2=PH 1 2 1 L 

NCASE=i ’ ' . 

GO TO 260 

223 J F ( PHI 22 ) 4QQp4 Q0f23 2 

"232" PHI 2 =PH 122 
MCASE=2 

GO TO 280 ; \ : 

2 30 1 F ( N C A S E - 2 ) 228p231p400. 

231 IF(PHI23). 40 0 f 40 0 f 234 

234 PHI2=PHI23 ; 

NCASE=3 
280 PRINT-0 

,239_LOOP=0 ; J 

” NSK IP=0 

IF ( I— 10 ) 300 * 300 p295 

295_ WRITE ( 3 f 296) v 

296“ FORMAT ( ////SX p ,_ FLOW COEFFICIENT OPTIMIZATIONp LIMIT OF ITERATIONS 

iexceededm . 



000057 

GO TO 

0 r i 

400 

000058 

200 C/-L. 

SAFE ( 

000059 

CALL 

7MGEO 

000060 

I F(->R 

INT). : 

000061 

151 C A 

ANStfR" 

000062 , 

153 CALL 

‘LOSS 

000053 

CALL 

OFRRV 


000065 
000066 
"0 Du 067' 
00006$ 
000069 
000070 
000071 
000072 
*01)0073 ' 
00007* 
000075 
' 000076 . 
C 0 0 0 77 
000078 
' 000079 ' 
000080 
000031 
” CU0Go2 
0.0003 3 
000084 
'000 085 
000086 
000037 
"000 033 
00 0 039 
000090 
‘"000091 
COO 092 
000093 
"000094" 
000095 
000096 
"000097 " 
QQQ093 
000 099 
" 000100 " 
000101 
000102 
~ n 00103 
000104 
_000105^ 
000106"* 
000107 
_Q 0 0 1 0 8 _ 
“0001^9“ 
000110 
000111 
000112 
000113 
_ 0 00 1 14 
000115" 
000116 


IF (FLAG-1.) 130f30r.l30 * 

130 IrO : LAG~3.) 35>30f35 ■ \ •* “ 

35 • WWR - o . , ■ • : ' •• ; ■ 

GO TO 31 | ’ '• ' ' ’ ■>* 

30 CALL. CL A3 | * - 

31 IF ( Ft. £ VH6~3 #,) 33 » 33 r 32 ________ * ! • 

* 33 *M-0 f 

GO TO 301 

32 DISTH"2 • *DINLT . 

C U 2 T H '*P S I TH * U2 " 

C2-SQRT(CU2TH**2+CM2**2> 1 

ALP2R=ATAN(CM2/CU2TH) 

CM3=CM2*(1«-3LK2) 

R4=,5*D2*( ,000157*XNS**. 917+1.) 

D4=2-.*R4 ' -L._ 

84=1,10*32 

ALP4=AT AN! (CM3/CU2TH ) *57 ,296 

BFL4-90.-ALP4 • 

VU4=Q2/D4*CU2TH"“ ~ ’ - 

ALP4R=ALP4/57.296 , 

V4=VU4/C0S(ALP4R>_ 

' ALP 2= 57 ,296* ALP 2R^ " ' 

C3=S’QRT(CU2TH**2+CM3**2) 

C34 = 0.5*(C3+V4) 

VTHRC=C2+EXP (0. 37532-0. 286*AL<5gULP2> > 

OD=Q* ( 1 * + XKOD ) 

ATHRC" * 321 *QO/VTHRC ■ 

ATHRC=1 . 1+ATHRC 

IF(SBLTA) 43 » 43 f 42 

42_ BETA=S8ETA _ ; ' - * ‘ 

ZO=SZD ' 

GO TO 44 • 

43 ZD=7. ; 

c)ETA=FLOAT (IF I X ( A LP 4 — • 5 ) ) 

SAVE=BETA 

4 4 M=0 _ _ * ‘ 1 

" 45*TIN=ATHRC/B4/ZD' ~ ' ' 

tout=rex*tin * 

XL=RL*TIN ^ : 

~46 IMESS=0 

CALL GEOM C I MESS r N) 

IF ( I MESS ) 79 r 4 f 79 • 

' '"79 I F ( SB E T A )' 8 0 # 80.408 
408 WRITE (3.410) 

_4iO_FORMAT (IQX+MORE TH AN 30 ITERATIONS IN SUBR OUTINE GEOM f 
GO' TO ”4 00 
4 CONTINUE 

_ACCEPTANCE CRITERIA FOR BLAD E PR OFILE ’ • : 

IF (FLAHG-6* ) 101.101.49 
101 IF ( AR0-8KB) 84.84.49 

49 IF( (GAMMA-BETA) -1*5) 84.50.50 : . 

5 0 ~ I F < ( G A MM A -B E T A ) -5 . 5'F"61» 61 V 84 

84 IF(SBETA) 80.80.72 
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0 */ 1 0 0 0 
6 CT 000 
G C 1000 

icxono 

9CT0HO . 
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PRINT "I. j 

00 TO 300 ~ 

I F ( LOOP-3 ) 217*218*218 . , 

LOOP~LOOP+1 

GO TO 300 

iFfflC^-E) 400*400* 225 

1 = 1*1 1 , J 1 

020(1) -S7D 

OPETA :i)=53ETA 

OFT A ( t ) =BTAOV * : 

O^K 1 2 f T ) “PH I 2 
IF(MT:.ST) 305 * 305 * 340 

I F ( I - 1 j 307 * 307 *310 . . 

PH 1 2 = ^HI 2 + 0.005 "" ~ ” 

FORMA T ( /5X r f ROUTE 307*/) 

WRIT!:C3f 5) • 

GO TO 290 "" 

IF ( 1-2 ) 312*312*314 

IF<OFTA(I>-OETA(I-l) >__ 315*318*320 

K = 1 

GO TO 307 

PH 1 2=0 . 5* ( OPHI 2 ( I ) +OPHI 2 < I -1 )„> 

nex=i 

FORMAT ( /5X *» ROUTE 318’/) 

WRITE (3*6) 

GO TO 290 

keep=: 

LEAVE=I-1 _ _ 

KEEP=LEAVE 

LEAVE-KEEP 

0ETA{ KEEP) =OETA (LEAVE) _ 

; o!3ETA(KEEP)=ORETA(LEAVET” 

OE7A ( LEAVE )=0£TA< KEEP) 

ODETA (LEAVE ) ^OBETA (KEEP) _ __ 

070 ( KEEP ) -OZD ( LEAVE ) 

020 ( LEAVE ) =OZD ( KEEP ) 

OPHI 2 (KEEP) =0PHI2 (LEAVE) _ „ 

" 0PHI2( LEAVE >=OPHI 2. (KEEP) 

OEVA (KEEP) =OETA (LEAVE) 

OETA (LEAVE) =0ETA (KEEP) „ 1 

PHI2rPHI.2-0.0lO 
F0RMAT(/5 Xp ’ROUTE 315’/) 

WRITE (3 *7) 

GO TO 290 

IF(0ETAC)-0ETA(I-1) ) 322*318*324 
• I F ( AOS ( OITA ( I ) -OETA ( I -2 ) ) -0 .001 ) 326 *328 *328. 
PHI2=0PHI2(I-1> 

SZD-C2D ( I-l ) 

SBETA=OBETA(I-l) *1^. 


FORMAT (/5X* ’ROUTE 325’/) 

WRITE (3* 8) 

' go to 289 \ ” 

lF(0ETA(I)-0ETA(I-2) ) 330*326*332 

PHI2=0.5*(OPHI2<1-1)+OPHI2(I«2)_) 

MTEST=1 

FORMAT C/5X* ’ROUTE 330’/) 

WR I TE ( 3 * 9 ) ; 

GO TO 290 

PHX2=0.5*(OPHI2(X)+OPHI2a-l> ) 








. j 0 00001 - subpoutine: outpi CRT ~ ; 

/<• 000002 COMMON' ■ XK ( 8 > f XZ (3) * XFR ( 3 J * XR ( 8) 

j 000 003 COMMON DHl t RM1 f H f RA * RC f BBM1 r CLIND f THING f 7L f DHIND f BLK i * A 1 f AB1 f OP.IND r \ 

1 ' o 0 0 0 0 4 ~ i t BBC1 r BBC2 f BBC3f CLC1 fCLC2 f CLC 3r CLTS f THC 1 1 THC2 * THC3f THTS > CLRS f THRSf • • f 

; QOUJ03 2Ci-lMP? THIMPr CLTOT r THTOT t BLK2f A2f SOLI f SOLS fS0L3fS0L4f SOLS f SOLI Pf SOL . \ ' 

;i o 0 0 C 0 6 __ 3 TO * DH 2 f DH3 f DH 4 f OHS f DH I MP f OHTOT fRP2fRP3f R.P 4 > SM.r 01 r S I G t DR f CM2 fSCL 1— | 

1 ~ 000 007 ’ COMMON OT1 f EPS'f D2 1 BRfBBTI f BB2 f Z r ZO r Z1 f Z ? r Z3 f Z4 fNZfKBMIDf X5I f DP IMP . * f 

J 00 04 0a COMMON WPfXNfRHOfQKI f HNPSM * HTOT * PHI MN f VHK'* * ET AH 1 1 PS I.TH r ESHR f RWR f 

0 00009 COMMON XKPH1 1 PHI 2 1 1 PHI 22 r PHI23 » CMl f UTl f PHI IT f 5 f XNS f rj SlO f PHI 2? NCASE 1 - ! 

j ~ j 0 0 010 ' COMMON" "F-AGf VIS f FLACO f WV;RyU2 f PSiflL t DPIPSfP SI IP fPSIINfFRD f. 

;■ 0000 11 COMMON 34 fRL fREX * R4 »8ETA fB p L4 1 ZD fDINLT f DIS TH f TIN f TOUT r XLf VSf . f 

J 0000.12 lRAOUS ( 95) r THETA fRADTHf ALPHA? RAD? DELTA f GAMMA* AROf RAR f RLOC r CVAN f . ; 

■\ 000013 ’2 A N V A N ? B K 3 ? D I F 3 C f R D I S f A D I S V T H I C K V TH I CO f ST A NG ? T R A C 0 ? SOL I D r B B M4 1 I 

1 000014 3B3MbfFE£p ACROSf AEWfABSlf DHr AR f ATHT f RI t NOGO t NSKIP f OPTFI r PRINT f FI 2 j 

i IJ00015 COMMON RIOPT f RIBM f RIBL f R IBH # DEL f BFL5 f DEO f RMTHr OMPR f OVEWf OMOV 

■5 OU'iO’-O *" COMMON' V4 f Mf XKDVD p XK 1 VO f XKFVO t EVO f FLA f XKQD f O r OD f O^TOT . i. 

•! 0 u j J 1 7 COMMON RPI-IG # 5STHG # F5TH5 # XKSFS * XKM5C ♦ D6 * 07 » C7 r DPS5C r OPSFS > OPSMC > C34 [ 

{ iiU:P‘19 COMMON RLBET f Rezo t SBETA f SZO »PSH5G» ETAOV f LOOP t FLAHO»nP - ; 

| OO-jOiO- COMMON GLUT » F INC * BE10 f RBRM r D9 > RBft7» THRVfZRV fROSV#TEX5 •DLDM>BCM5 . f 

900020 500 FORMAT ( f 1 ♦ » 53X * T DIFFUSER GEOMETRY’///) ' 

000921 100 FORMAT (36X t ’BETA* » 9X r » ZD’ 'QX> »R3ASE* fJXj '» 0 I NLT * >7X* »0I5TH» fBXr »B4» h 

1 “ 000922 ' 1/) . . • f 

002-23 101 FORMAT ( 23X * 6F12 • 3// ) : 

.i 900 f 24 103 FORMAT (54Xr ’LOG SPIRAL D A T A_ f / /_/ 4 0 X f * T ' H E T A ’ f_3 0 X » _* R AO I U S * / 4 0 X/ ’ ( D E G_> I 

J 900925' * 1 » » 3 1 X » *' 1 1 N ) '* / ) *' ‘ ! 

■1 000926 501 FOf?MAT(39XrF6.2r30X»F6.3) ' 

j 00 2 0 27 502 FORMAT (///54Xf ’BLADE GEOMETRY ’ ///l OX » ’DELTA ’* 6X# * GAMMA ’ f 7X * ’ ARO \p . i : f 

■ i - '0 02023"' " ' 1 7X r ’ ANV AN * f 6X r * ADIS’ t 8X r ’ RAR * Vs'X'iT* RLOC * ^ 6X f ’ C VAN 1 > 3X > ’ 8K3 ’ 7 ' ■ 

002029 2 10X» ’(DEG) ’ t 6Xf * (OEG) » r6Xr * (DEG) ’ r 6X ^ MDE3) ’ * 6X r ’ (OEG) ’f6Xf 

1 000 0 30 3 * (IN) 1 f SX f f ( I N) ’ » 6X f * ’(IN ) 1 f 7X » M IN ) ’ /) _ [ 

"j 000031 ""“ 503 FORMAT { 4X » 5F1 1 . 2 * 3 p U . 3 * F12. 3// ) 

909032 504 FORMAT ( 10X > ’ OIFBC ’ r 6X * * RDIS * * 7X » ’ THICK ’#6Xf*T/C’> 

\ 00 90 33 1 9X, *Tir\H >7Xr ’TOUT’ * 8X» ’XL* ’Dl.DM» *6X* *3CM5’_>6Xr ’TEX5’A — - 

\ 00 2934 1 10Xr M IN) * » 7X f ’ ( IN) * >7X> * ( IN) v »7Xr ’RATIO’ »6Xr" 

v 0 0 2 035 3 M IN) ’ #7Xf * (IN) ’ »7Xr ’ (IN) * *7X» ’ (IN) * * 6Xf ♦ (OEG) ’ f 5X» ’ (IN) f /) 

4 0009.56 • 505 F0RMAT(4X»3FU.3rFll,4 f 5F11.3fF9.3///) t 

1] 009037 " 506 FORMAT ( SOX f ’TRANSFORMED BLADE DATA’//) ' . . [ 

v 000038 507 FORMAT ( 8X t ’ STANG * > 14X t ’ TRACO ♦* 16X f * SOLID ’ f 15X f * BBM4’ 1 16X f ’ BBM5 ’ f ' f 

■j 002039 116Xr tFEE’/SXr * (DEG) * »15 Xf ’ ( IN) '.f.36Xf «. (.DFG ). ’.# 15X v’.( DEG > . *.f.14Xf : j 

I 002040 * ' 2 * (DEG) * /) . $ 

V 0 0 0 C 4 1 508 FORMAT ( 6X p F7 • 3 » 5F 20 • 3/// ) * ' | 

00 0 042 5C9 FORMAT (SuXf * AREAS ’ ///8X t 1 ACROS • f 16X# ♦ AEW T f 16Xf ’ ABS1 ’.f.17Xf ’AR* f .; - f 

i 009043 1 I8Xf *DH’ f 17X» f ATHT'/7Xf * (SQ IN) » f 13X f ’ (SO IN) ’ f 13X r » < SQ IN) ’ f t 

000944 2 34Xf * (IN) * f14Xf * (SO IN)’/) * 

j 000045 510 F0KMAT(3 XfF10*3f 5F20.3) 1 i ! •- l 

•1 002246 WRITE ( 3 f 500 ) . F" 

i 000947 WRITE (3 f ICO) - ' { 

: i 000 04 8 WRITE ( 3 f 1 0 1 ) BETA t ZD t R4 1 D I NLT t D I STH f B 4 ; _ ^ 

j "" 000049 WRITE(3 f103) . { 

V 000050 L=N-1 ; ’ } 

000 051 DO 10 J=5fLf5 _ _ ^ 

I ' 002053 XXXXrFLOAT(J) ■, - ' j- 

002033 10 WRITE ( 3 f 50 1 ) XXXX f R A!)US ( J) f 

000034 WRITE<3f501)THETAfRADTH ; ' J L.I T 

000035 WRITE ( 3 f 50 1 ) ALPHA * RAD ' " ’ f 

COCGbb WRITE ( 3 f 502) . I 




4 2. :50 » 1 * loo. 


DATE 20 APR 72 • PAP?: 7,* 


000057 

WRITli < 3f 

cooo r >a 

v/Ri re 13 r 

000059 

WRITE <3* 

000060 

WRITE C3p 

000061 

WRITE* 3r 

000062 

WRITE (Ztt 

000063 

WRITE (3# 

000064 

WRITE (3f 

001)065 

return 

000066 

END 



68*60* 9Tt*T # 5 = 0T3V 

■ ' •2/ANHC=AUHy . ■ 

.. - - - "T6a+6V>/69 * ev **2 = Ayna 02 

18 * 5T # T = 63 12 
8 2 4 13-12 (68) dl 

_ r r* . . 090*0 - 6A81 = 6 v 

. • • • • *2/Asa=Asy 

*2/60=6*1 

— A8 Z/ 6G*9Tt?T * 5 = 6 A d 1 92 

•X~OZ = A dZ 52 
• 92-53-52 (AbZ)dl 08 

: 92 Oi 09 

‘ ' 0Z = AdZ T9 

* ’ • T8-08-08 <*l-9HV*ld)dI_ 

. • ASG«*6G=ASa 172 

• I*T = ASOy 52 

i?2 4 52-52 (ASGH)dl 22 _ 

uti = 60 12 

22 * T2 - TZ { 60 } J I 

# 2/80=8y 

„ # •sZ(Za+Va'jVwu8y =mwn it 

vt = wytjy 9T ■ 

\ 1T 4 9T 4 9T (WU8H>dI.J)S 

“ . ( yswoa ) nis*9o = 9wo 

962*15/9d3V = 85WDB 61? 

' _ 05 01.09 

<y9d*1V)NIS * 90 =9 WO §tj 

■ 6^ J 8t7-9tj OHVOd) dl 

. ' __ D8dl0**2„.= 80 

' " ’ " 1998/98 = 18 2T 

T * T - 1988 OT 

. ' 2T_-OT*OT (19G8)dI 

. 962*15/9d3V=89dlV 

. . ’ 83d8 - *06 = 9d“lV 

' ..t>9... = . 98 

' ' ( X >iO+ • T ) *d/A - dWltt 

5=M1 

SW09- WQ“}Q 4 9X3(jV 4 ASOd - AdZ - AdHl - 1988*60 ‘NdGd- 0T3U ONI d-imO NOWWOO 

69 - 9HV3d - dOol - A0V13 4 9SH5d 4 GZS - V1395 4 CZ“ld 4 13938 NOWWOO 

t?£ 0 - OWSdO - SdSdC - OSSdG - 10 ' 10 - 90 - OSW'WX - SdSXX - y HlSd 4 9H1SS - SHdd NOWWO 0 
101W0 - QO - 0 - CGXX ■ - V3d- CA3 - GAdXX - GAT XX - OAG>;X -W-fiA MOWWOO 

Aowo'-MjWG-'ydwo-Hiwii'Oda'sndBndQ-HSxy-noiy-woiy-idoiy nowkoo 

Zld-lNIdd - IdldO -dI>iSN- 090N- Ici- 1H1V - *J V - HG - T56Y - M3V - SOdOV - 33d' 5W805 

-^was-Gnos-oovyi-ONvis-ooiHi'^oiHi.-.siav.-siay-osdia-oxfj-NVAN’v.. 2 

-NVA0O01d J HV8-0yV- VWWV9- tfllJu'-OVa- VHd"iV - HlOV'd 4 Vl3nl- (56 jSnCVWT 
4 90 4 TX 4 lfiOl 4 Nil - Hl*j IQ - 19NIG 4 GZ - NldG 4 V13G 4 X3ii 4 “id 4 ■*;& NOWWOO 

Odd - f'.'I ISd-dl iStj^SdldO - 381 Sd - 20 - dttM - OOVOd 4 SI A 4 SV^d NOWWOO 

3SV9N - 2 IHd - 0 ISc - S.NX - S- IT iHd - TIP* - TWO - 53 iHd - 32 IHd 4 T3 IHd - T HdXX N OWWOO 
dMd - 8HS3 - HI ISd - IH VA3 -WXHA-NWIHd- 101H - HSdNH - 1 XQ 4 OHd 4 NX 4 6K U OWWO'D 

_ dWIdQ - ISX 4 01 W8X 4 2N-t72 4 5Z-2Z-T2*’OZ 4 Z-208-TlQ8-o8-2(j 4 Sd3 4 TlG NOWWOO 

' '30S 4 2W0 4 yQ 4 5IS- 10 4 WS- t ; db 4 5db 4 2dd 4 lOlHO-dWIHC! 4 5H0 4 t;HG 4 £H0 4 2H0 4 015 
30S -dI90S 4 S30S 4 t7~10S 4 £30S ’23QS * T30S 4 2V 4 2X38 -101H1 4 10110 -dW I U J. 4 dhI332 

_ 4 SyHl 4 Sdl0 4 SlHl 4 50Hl 4 20H1 - T OHl -S130 - £030 - 2030 J T 030 4 £088 4 2088 J ; T 0 98 - T 

GN I dO - T 8 V - 1 V - I XHtT- GN I HQ - "1Z*-CN I hi 4 ON 1 3 0 4 T W 9 S 4 Ob 4 Vd 4 H 4 T W 'd 4 T KG NOii/JOO 

• (9)dX 4 (8>ddX 4 <8)ZX- (8)XX NOWWOO 

H0A3y^3N i ir.o>;^ns _ 








i 


0 0 0057 
"OOo'Cbif 
000059 
_0 0 0 060 _ 
000061“ 
CO 0062 
000063 

000 064 

000065 
000066 
" 000067 
000060 
000069 _ 
000070 
000071 
000072 _ 
000073 
000074 
000075 
00 007 6 ", 
0 0 0 C 7 7 
_00007fi 
000079* 
000080 
_000081_ 
000082 " 
000033 
0 00 034 _ 
"000 035' 

C 0 0 0 8 6 
000087 
"*00 0033* 

0 0 0 0 89 
000 090 
0 00091"" 
000092 
000093 _ 
"000 094* 
000095 
000096 
”000097* 
000098 
00009 9_ 
*000100 
000101 
000102 
"000103 " 
000104 
J)O01O5_ 
000106“ 
000107 
000108 _ 
""000109" 
000110 
gooiu_ 

"CO 0112 
C 0 0 1 1 3 
000114 
000115" 
000116 


IS 


15 

19 

2 * 00 “ 


30 

31 


60 


61 

63 


» f 1 * 19 0 ; 

CM10 :: 0 *321 * QD/AE1C __1 

“rEIOR - =' BElO/57.296 . 

lFtDE.LO-90.) 15rlOfl5 

_C10 r'CVlO } ; ; r * __ 

60 TO' 19 • . " • 

CIO s.CM10/SIN(BE10R> 

IF ( FLAHG-7 • ) 200 ? 200 ? 202 ■ ■' ■>'•••• ■ ’ 

"CU6= C6 +' C0SCALP6R) ‘ * "■ ’ 

C.M7 = RB67* CK6 

_CU7 = CM6*B6/ ( 0 . 785*CLUT*RMUT+B6 »S XN t AL P6 R ? /CO S ( ALP6R ? ) 
ALP7R=r ATANICM7/CU7) ' 

ALP7- 57.296 * ALP7R ' ' ' * 

C7 - SGRT(CU7**2+CM7**2L 

"HUUTz 0.01554* (CU6**2-CU7**2) 

TRVT= 3.1416 * 08/2RV ’ ‘ 

I F ( THR V ) 30 f 30 f 31__ __ . 

THKV = 0.120 "" 

BET8R=ATAN(FINC*TRVT/(TRVT-THRV>*SIN(ALP7P>/C0S(ALP7R>).' 

F.5T8= 57.296+BET8R _ ! 

BLA= (D8*SIN ( RET8R ) + bStf)/(D8*C0S(BETSR>.) 
9LB=(00*C05(SETeR) )/(D8*SIN<8ET8R)+0SV) • 

_XLAG = 2./CBLA-GL8) ■ * . ■ 

XF(XLAG) 60*61*61 

BLASR = 3.1417 -ATAN UBS < XLAG > > 

GO TO 63 _ 

BL'AG'r=ATAM ( XLAG j 
BLAG=57.296 *BLAGR 

p 3 L U = ( R 8 * * 2 R_S V * * 2 ) / (2.* R 8 * C 0S(B ET8R? ) . 

“bLRV=""R'QLD * BLAGR’ + RS V r “ ' 

CMRV = SORT ( { 08**2+09* *2 ) /2* ) 

TMRV = 3. 1416/ZRV*DMRV 

"SOL R V = * BLR V / T MR V “ 

C710 = SORT ( 0 ♦ 5* (C10**2+C7**2) ) 

GO TO 190 


DATE 20 APR " 


rf ’ 'mV -i - -i * *Lr kite ka 


PAC 


-R9 


202 CHDEX =“27*B6*ADEXS/rB6+ADEX5) 

DHRV = 0 • 5* ( DHDEX+DHRV ) 

RH R V = 0.5*0 HR V 

F L U T M ' ='3.1 416+ R MtJl' 

FLRCM = R0-R9 

FLCMsFLUTV+FLRCM : 

BET7 , “="BCM5"+ (90. - gCM5)*FLUTM/FLCM 
BE67R= 0.5*(BCM5+RET7>/57.296 

FLUT r FLUTM/SIN ( RE67R) 

BE79R ‘ = 0.5* ( BET7+BE1 0 ) /5 7 . 296 
FLRC = FLRCN;/SIN(BE79R) 

FLC - FLU! + FLRC 

BLKV = FLC 


190 


520 

525 

“530 


C710 = SCRT(0.5*<C6**2+C10**2>) 

aec6=adex5*b6 ; 

"A EC 9= A 9+ 39 

OMDRV =( ( 1.-AEC6/AEC9) **2+0 . 2* ( 1 . - J AEC6/AEC9) **2) )/2. 

C L UT = 0.28*0. 15+SQRT ( 2._* RMUT/ (B6+B7 > -1 * ) 

" HLUT '' = " CM 6**2 / 6 4 . 3 40*2.”* C LU T 
RERV=DMRV*C710*RH0/ ( 386 . 088*VI S ) 

IF (RERV-1 .E+05) 520 > 520 r 525 __ . 

“FRC = *0. 0 032+0. 22 1/RERV** 0.237 
GO TO 530 

FRC = l./(U. 86858* A1.0G(RHRV/XKFVD?+ 1.74) * *2 

"HLFRV*= F R C * C 7 1 0 * * 2 / 6 4 • 3 4 8 * B L R V / 0"H R V 
IF ( FLAHG-7 • ) 220 1 220 1 222 


-%■ 

I : 

IV 








: ; : ■: u.\t r # h > .•;: 2 5 0 1 1 # i C 0, 


DATE 28 AH;* 7 ;■' PAGE 41 


1 - 


000X17 
000118“ 
000119 
000120 
000121 ' 
000122 
000123 ' 
000124 
000125 
000126 
C 00 127 ~ 
CO 0120 
000129 
000130 
000131 
0U0132 
000133 
0 0 U 1 3 4 
000135 
C 0 0136, 
000127 
OOQ138 
000139 
000140 
000141 
000142 
000143 
000144 
000 J 45 
000146 
000147 
00-0148' 
000149 
000150 
000151" 
000152 
000153 
000154” 
000155 
000156 
000157 ~ 
000158 
C00159 
COOibO” 
000161 
000162 
'000163 
000154 
000165 
000166" 
000167 
000168 
'000169“ 
000170 
000171 
000172"“ 
000173 
000174 
0 0 0 175 * 
000176 


222 


_HL0RV“0MDRV*C6**2/64.348 ; 

HLRC “HLFRV +~ HLDRV + HLUT 
PSIUT~32.174*HLUT/U2**2 
PSDW- 32M74*HLDRV/U2**2 


730 


9 

604 

606 

607 

701 

707 

709 

'711 

715 

717 

719 

“7^1 

723 

'727 


PSFRV = 32.174*HLFRV/U2**2 
OSIRC ~ PSIUT + PS DRV + PSFRV 

IF t PRINT ) 72 p 72 ' 730 _ 

WRITE (LW » 9) " • • 

WRITE ILWf 604) . .. 

WRITE f LW *1 0,1 ) RMUT ' !37 1 : 1 -G' ~ ' 

WRITE (LW 1 707) FLC'39' “ ’ * 

WRITE? LWr70'9) DHRV p|}9 

wRXrs?Lw»606) ' 

’ WRITE (LVIp711 ) CM 6 1 C 10 
WRITE (LW » 715) RERV 

WR I TE t LW j 607) • - ' _ 

WRITE (LWr 717) FRC , • : • 

WRITE<UWf7l9) HLUT # PSIUT ! 1 ' ^ ! v • * 

WRITE < LW r 721 ) HLDR V p PSDRV '• • _ 

WRITE' LW » 723 ) HLFRV t PSFRV < 

WRITE (LW* 727.) HLRC 'PS IRC ‘ . 

FORMAT ( 45X * • REVERSING C H A NN E L_W I TH_C 0 N TIN JO U$„Y A NE *_/JL 
“ FORMAT (55Xf * GEOMETRY ♦/} 

FORMAT ( 4 5X r * FLUID ANGLES AND VELOCITIES * / ) 

FORMAT ( 53X t * PERFORMANCE »/) 


FORMATdXf ’MEAN TURNING RADIUS * U-TURN p RMUT ♦* 2X f FI 0 . 3 ' 2X H IN* ' 
H2Xr ♦ CHANNEL HEIGHT 87 * # 20 X p F10 . 3 1 ♦ IN * ) 

F 0 R M A T M X * * APP R 0 X . CHANNEL LENGTH' FLC * r 8 Xjf 10. 3j_2 X p W p ■ 

l,2Xf t CHANNEL HEIGHT B 9 * "# 2 OX r F 10 * 3 r * I N *7.“ " 

FORMAT MX # 1 HYDRAULIC DIAp CHANNEL * DHRV* r . 7X*F10.3f 2Xf * IN* * 

112X# ’.MEAN EXIT DIAr D9 ♦ 1 20X ' FI 0 ♦ 3 1 2X r * IN * //) 

FORMAT ( 1 X p ’ MERIDIONAL VELOC I T Y p CM6 » p 1 IX '~M0 . 3 1 2XV * FT/S * f 1 OX r 
1* ABSOLUT VELOCITY » VANE EXIT. C 1 0 * p 6X t F 1 0 . 3 p 2X r * FT/S *) 

FORMAT ( IX • * REYNOLDS NO p MEAN# RERV * 1 12X p E 10 . 4 1 2X t ’ *** * //) 

FORMAT MX * * FRICTION COEFFICIENT V FRC* t lOX *F10*5V 2X ' *****T 
FORMAT ( IX p ♦HEAD LOSS' U-TURN.' HLUT * » 12X p F 10 . 3 r 2X p * FT * ' 12X ' 

1 * HEAD LOSS COEFF f U-TURN p PSIUT * p OX r F 10 . 4 p 2 X p * *** * ) _ 

FORMAT MX p ’HEAD LOSS DIFFUSION' ' HLDRV T ' 9X ' F10 . 3 1 2X ' ♦ FT * p 12X> 

1 * HEAD LOSS COEFF' DIFFUSION# PSDRV * ' 5X p FI 0 . 4 1 2X t » **« ♦ ) 

FORMAT MX* ’HEAD LOSS FRICTION# HLFRV * ' 10X * F1C. 3# 2X * * F.T..M11 2X.p 

1 * HEAD LOSS' COEFF#' FRICTION' PSFRV * ' 6X ' FI 0 . 4 p 2X p » *** * ) 


220 


'330 


FORMAT M X # ♦ HEAD LOSS' REVERSING SYSTEM' HLRC ♦ ' 3X t F10 . 3* 2X t ♦ FT * p 12X t ' 

1 * HEAD LOSS COEFF r REVERSING, SYST p_ PSIRC 1 p .*=110 .4 p 2X*J.***.»_///J 

GO TO 72 . 

DRV=1 .-C10/C7 + D8 + CU7/ (SOLRV+C7* (D8+D9) ) i 

OMDRV = XKDVD * DRV**EVD 

HLURV=OMDRV^C7**2/6'4.348 

HLINV= (CM7*( COSC ALP 7R) /SIN (ALP7R) -COS (BET8R) /SIN (BET8R) )) **2/64.34 

13 _ ^ 

HLRVnHLDRV + HLFRV + HLINV 
HLRC = HLRV + HLUT 

__PSINV = 32 • 1 74*HLINV/U2**2_ ; 

PS1UT=32.174*HLUT/U2**2 

PSIRV=32.174*HLRV/U2**2 

_PSIRC=PSIUT+PSIRV . ~ 

PSDRV= 3 2 « 1 7 4 + f *! L D R V / U 2 * * Z ■ 

PSFRV = 32. 174*HLFRV/U2**2 

IF (PRINT ) 72 f 72 f 330 __ 1 ^ 1 

V.'RITE(LWpI) ■ 

V.'R I TE ( LW * 4 ) 












CO A.- ’!< 


00017 ? 

‘ : 000176 
000179 
0 o C IOC 

"oo'oiai" 
000102 
000153 
*000104" 
000155 
_C 00106 
000167" 
000183 
000189 _ 
0001 9 0 
OOQ191 
C 00192 _ 
'C 00193 
000194 
000195 
00 0.196 
0(3 0197 
000193 
"000199 
000200 
000201 
"000202”' 
.00 0203 
000204 

” ’ft jj fj205 
000206 
0 002.07 
000233” 
000209 
0002-10 
”000211 " 
000212 
C 0 0213 
”000214“ 
000215 
000216 
“0002 1 7 ” 
000218 
J) 0C219_ 
000220' 
C00221 
000222 
100223”' 
000224 
0 00225 _ 
0 0 0226 
0 0 0227 
_0 00228 
0002^9 
000230 
_000231 
00 u 232 
000233 
0 00234 
”000235“ 
000236 


WRITE U.W?30i >_RMUT?B7 _ 
“wf:i rp'U'?303)‘ B£T8?0LAG 
■fcfll 'E:LW?305> DSV»RcLD 
WR WE 3C 7 )• ’ BLRV f SOLRV_ 

~V;R I f *: •; LW . 309) OHRV ? 2R V 
wri n:-fLWf6) 

j:RITEawr3U)_CM6rC7 

WRITE ( LW r 313 ) ALP7 * CIO 
WRITE (LW? 315) RERV 

JWRITE<LW?7). _ 

WR I TE < LW ? 31 ;7 )“ DRV f FRC 


WR ITE (LW ? 319) HLUTfPSIUT 

_ WRITE* LW ? 32.9 )_HL I N V ? PS I MV _ • 

' "WRITE (LW f 32-1 ) HLDRV ? PSDRV 
WR I TE ( LW r 323) HLFRV ? P5FR V 

WRI TE f LW f 325 ) HLRV ? PS I R V ■ • 

WRITE' *,LWf 327)'" HLRCVPSIRC 

1 FORMAH40X? ’REVERSING CHANNEL WITH VANELESS U-TURN*/) 

4_F0RMAT(55X? * GEOMETRY*/) ■ ; 

6 FORMAT ( 45X ? * FLUID ANGLES AND ’ VELOCITIES * /) . 

7 FORMAT (53X? * PERFORMANCE* /) 

301 FORMATdX? 'MEAN TURNING RADIUS? U-TURN, RM UT* ? 2 X ?F10»3? 2X? * IN* ? 12X 
I * * INLET vane HEIGHT ? B7* »i7X?F10.3?2X? » IN*) 

303 FORMAT ( IX ? .* VANE INLET ANGLE? BET8 • ? 13X * FI 0 . 3#2X ? * DEG * ? UX? 

1 'VANE TURNING ANGLE » BLAG * ? 14X ? Fl 0 . 3 ? 2X ? * DEG * ) 

305* FORMA T { 1 X ? * D I AMETER DSV ' ? 23X ? F 1 6 «*3 ? 2 X * T 'j N *Y 12X r 1 
1 * VANE TURNING RADIUS? RBLD * ? 13X ? FiO . 3?2X? * IN* 5 

307 FORMATdX? * VANE LENGTH * BLRV * 18X r FIO . 3? 2X ?.* IN * ? IgX ? ' 

i “'* VANE SOLIDITY? SOLRV'Tl 8X ? FIO VjV 2X ? *****> 

309 FORMAT (IX? 'HYDRAULIC DIA? VANE PASSAGE? DKRV* ?2X?F10,3?2X?'IN*? 

Il2X ? * VANE NUMBER ? ZR V * ?20X?Fj0*3??X? »***•//) • 

31 r ' F ORMA T(1X?* HER I D I ON A L VELOCI T Y ? C M6 * ? 1 1 X ? F 1 0 * 3 ? 2 X ? * FT/ S * ? 1 0 X ? 

I 'ABSOLUT VELOCITY? VANE INLET? C7 * ? 6X?F3 0.3? 2X? *FT/S * ) 

313 FORMAT (IX? 'FLUID ANGLE VANE INLET? ALP7 * ? 7X ? Fl 0 . 3 ? 2X ? * FT/S * ? 1 OX ? 

i* ABSOLUT VE.LOC I T Y ? ' VANE "EXIT ? "010“' ? 6X ?“F" l‘C'V'3 ?*2XV'FT/S O 
315 FORMAT (IX? 'REYNOLDS NO? MEAN ? RERV* ? 12X>F10 . 4 ?2X# * ***♦//) 

317 FORMAT (IX? 'DIFFUSION PARAMETER VANE? DRV * ? 6X ? Fl 0 • 4 ? 2X ?* ***.♦ ?_1_1_X? 

COEFFICIENT 


l'FRICTION 
319 FORMAT (IX? 

1 * HEAD LOSS 
*321 FORMA 


VANE"?" FRC * ? OX ? F 10 ♦ 6?2X ? * **** ) 

HEAD LOSS? U-TURN? HLUT * ? 12X> F 10 . 3? 2X ? ' FT* ? 12X? 
COEFF? U-TURN? PSIUT *? 8X r Fl 0 . 4 ? 2X ****** ) 

( IX ?'» HEAD" LOSS 


DIFFUSION? HLDRV* ? 9X? FTC • 3 ? 2X ? 'FT* ? 12X? 

1 'HEAD LOSS COEFF? DIFFUSION? PSDRV ♦? 5X ? Fl 0 * 4 ? 2X ?****' > 

323 FORMAT ( IX? 'HEAD LOSS FRICTION? HLFRV ' ? IPX ? Fl 0 . 5 ? 2X ? 'F T* ? 12X? 1_ 

1 f HE AD LOSS' COEFF /“FRICTION"? PSFRV *? 6X ? F1C . 4 ? 2X ?.****♦ ) 

325 FORMAT (IX? 'HEAD LOSS? VANE? HLRV ' ? 14 X ? F1C . 3 ? 2X ? » FT * ? 12X? • 

1 * HEAD LOSS COEFF ?_ VANE? PSIRV *? 1 OX ? Fl 0 . 4 ? 2X ?****_• ) 

327 '"FORMAT (1 X • "* HE A D TOSSV RE VERS I NG SYSTEM ? HIRC * ? 3X ? Fl 0 * 3 ? 2X ? * FT * r 12X t 
1 ' HEAD LOSS COEFF? REVERSING SYST? &SIRC *? FIO . 4 ? 2X ?»****/ ) 

329 FORMAKIX? 'HEAD LOSS? INCIDENCE? HLI MV * > F,X t FIO . 3 ? 2X ? * F T * ?12 X? 

I* HEAD LOSS"' COEFF ?' ' INC I OENCE ?“' PS iT-IV ' ? 5X ? F! 0 • 4 ? 2X r * * ) 

72 HLVD=0MT0T*V4**2/64,35 

PSIVD=HLV0*32.174/IJ2*^2 

PS H S : G = P S I V D + PS I R C ' 

PS I OV-PSI I P-PSHSG 

HT0TF=PSI0V*U2**2/32.174 , ; 

E T A !■ \ I "= P S 1 0 V / P S I T H 

etaov=psiov/psiin*wp/wimp 

M — M + 1 ■ ■ 

I F ( P R I M T f 8 0 0 ? 800 ? 7 5 0 

750 WRITE ( 3? 47) PSIVD . ■ 


WRITE' 3*2°) PS^SG 1 

w^ir- :3#37>' etahi 

WRITE- 3*39) ETAOV . , 

write :3f4i) psiov _ 

WRITE 1 3* '441). HTOTF 

47 FORMA" <5X* ’HEAD LOSS COEFF * DIFFUSER* PSI VO * f SX * F10 . 4 * 3X* ’*** ’ > 
41 FORMA” (-5 > * * PUMP OVERALL HEAD COEFF t PSIOV * * 9X * F10 * 4 OX *♦ ***’ > 
29 FORMAT ( 5X r f HEAD LOSS COEFF# "HOUSING* PSHSG ’ r 9X# F10 #4* 3X* ♦ *** * > 
39 FORMAT <5Xf » EFFICIENCY * OVERALL t ETAOV’ * 14X* F10.u,2Xf ***** > 

441 FORMA T ( 5X r ♦TOTAL HEAD PISE* HTOTF ♦ / 18X » FI 0 • 3 f 2X » ♦ FT 1 5 . 

\ 37 FOPMAT(SXf ’EFFICIENCY* HYDRAULIC* ETAHI * r 12X*F1 Of 4 *2X* ***** > 

800 RETURN 
end 
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003029 


CM2SPI 

000030 


AB2-0 

000031 


B2=AB 

COO 032 
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000033 

40 

'WRITE 

CO -.,0 34 


WRITE 


SUBROUTINE SAFE 

COMMON' XK<8) >XZ(i3> >XFR£8> fXR(fl) 

COMMON DH1 tRMl pHfRA#RC#B3Mljr CLIND r THIND r ZL* OHIND* BLKI r Alt AB1»_DPIND_ 
" TV BBC lV'O i3C 2/5BC 3VC*LC ITC LC 2 rCLCSVCLTS # THC"! VTHC2 /THC3V YHTSVCLRS* THRS t 
2CLIMP » THIMP fCLTOTt THT0Tf3LK2rA2» SOLI ,SOL2 *S0L3r S0L4,S0L5» SOLIP* SOL 

. 3TO * OH 2 *_DF3 r DH4 r DH5 f DHI MP * DHTOT r RP2 r RP3 * R P4 t 5M r 0 1 * S I G f DR * CM2 r SCL 

‘COMMON" OJU EPS 9 02 r 32 r BBTiVbb? izYzOTz l*72*Z3rZ4f NZ » K3MI D r XS 1 1 DPI MP 
COMMON WPfXNrRHOfGKI fHNPSH*HTOT*PHlMNf VHKM pETAHI rPSITHrESHRfRWR 
__ COMMON XKPH1 » PHI 21 * PHI 22 > PHI23 » CMl ♦ UTl * PH! IT i> S » XMS r °SI0 » PH 1 2 f NCASE_ 
COMMON" FLAG f VIS * F LACO f WWR > U2 » PSIBL r DP IPS r PS I IP> PSI IN t FRO 
COMMON B4»RLr REXrR4fBETA»BFL4f ZD»DIMLT#OI^TH»TIN#TO-JTf XLf V5» 

1RA0U5 ( 95 W THETA t RADTH f ALPHA » RAD f DELTA » GAMMA > ARO r PAR t RLOC t CVAN^ 

2 AN VAN > BX3 t'O I FBC t RDIS’r ADI S 7 THICK V THICOVSTAMG » TR A CO f SOL ID >RRM4» 

3p0Mbr FEE, ACROSS AEW*ABSl»DHr AR, ATHT » R I » NOGO * NSK IP # OPTF I , PRI NT f FI 2 

COMMON R ICPT » RIBM f RIBLf RIRHf DE Lf RFL5»OFQf !^MTH» OMPR f OMEW.OMOV 

COMMON V4tMr XKDVD » XKlVD* XKF VO r E'/Df FLA » XKQDr Q# QD>OMTOT 

COMMON RPHGfSSTHS»FSTHGf XKSFSr XKMSCf Dr>fD7?C7#DPSSCOPSFSfDPSMCf C34 

COMMON RLBET > RLZD 1 5BET A t SZQ * PSH5G t ETAOV * LOOP r FLAHG f 39 : 

' "COMMON C LUT »• F I NC » BE.t 0 > R6RM t D9 > RB67 * THR V , ZP V > RDSV > TEX 5 * DLDM r BCM5 
BB2R=B82/57.296 

IF ( LOOP ) 20 » 20 f 25 _ _ ; 

"20 PSI TH=PS I O-PHI 2*C0S ( B82R) /SIN ( BB2R ) 


( 1 • -0LK2 ) 


J vj y • o j 
0<: 0036 
'DO 0 037 
000038 
000039 
' OOuORO’ 
000041 
000342 
0li()043 
000044 
00 0 045 
0 0 0 0 4 6 
000047 
0 0 004 8 
’*0 0 0049 ~ 
OOOCSO 
000051 
030052 " 
OOJC53 
000054 


V. R I TE £ 3 > 4 ) HTHI 

■WRITE ( 3 r 6) D2 _ 

V.’RI 1 E ( 3 f 7) BLK2 
WRITE (3*9) AB2 

_WRITE<3tia> B2 ' _L 

WRITE <3 *8) CM2 
WRI TE t 3f 5 ) U2 

WRITE (3*30 PHI 2 : ; ; 

1" FORMAT ( *1 * * 5X * * V** CASE* fi2f* ***»/) 

3 FORMAT <5X* ’THEORETICAL HEAD COEFFICIENT* * 12X ^FIC# 4» 4X > ****•) 

4 FORMAT.(5X» ♦THEORETICAL HEAD’ r 24X f F10 . 4 ^ 4X t f FT T ) . 

""5 FORMAT (5Xf * IMPELLER TANGENTI AL VELOCITY’ f 1 2X * F 1 0 • 4 » 4X » ’F'T/SEC 7 ! 

6 FORMAT (5X.r ’IMPELLER DISCHARGE DIAMETER ’ t l‘.5Xf F10 . 4 f 4X# ’ INCH’ ) 

_7 FORMAT (5Xf ’ IMPELLER DISCHARGE BLOCKAGE *_? 1 3X * FI 0.4» .5 X r ***** ) 

8 FORMAT ( 5X r”* IMPELLER "MERIDIONAL VELOCITY* r 12XfFYo“. 474X7* FT/SEC * ) 

9 FORMAT ( 5X f ’ IMPELLER DISCH E3LCKD AREA * 1 1 5X » F 1 0 . 4 f 4X t ’ SO IN*) 

18 FORMAT ( 5X r ' IMPELLER _DISCH VANE HEIGHT* f 14X#F1 0*4 »4 X r_* INCH * ) 

"3 0 ” F OR M A T (5 X r‘ * I M PE L L E R D I S C H 'V L 0 W ’ C OF F FIC I EN T ’ » 9 X t F. 1 C . 4 1 5X * * + * * ♦ t / ) 
50 RETURN 

END 1 
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000036 
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000038 
000039 
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Common FLAG > VlSf PLACO* WWR» 02 » rj^t f to JT ► XUf C5# 

t^SSss. 

- gg 

XUJ-’O, - 

DO 10' L=2»6 

xo =x +5 * 

y ( 1 ) = 1 * 086 

"Y (2) =1*134 

Y ( 3 ) =1 * 15 

Y (4) =1*225 

* y(5> = 1*27 

Y 1 6) =1 • 315 

V ; (1) =0.77 _ 

V; (25=0*691 
V.' (3) =0 .628 

y:(4>=0 *505 

v;(5)=o *55 
v; (6) =0.514 

CALL CUF I T ( 3 * 6 * X * Y.* A.?:.. 

CALL CUFIT(3»6»X»W*B> 
w X9P=v:9^( l.+OK.I > 

65=1.1*52 •_ — 

IF tFLAHG-3. ) 2 p 2 * 3 
ir 


IF (PLAH6-3. ? 

, aLp2 P.= AT AK < CM2/PS I TH/U2 ) 

ALP5R=ALP2R — 

ALPH5=57.296*M-P5R 

C5=02 • ^ 

CL'2TH=P51TH*U2 

' ' C U5=CU2TH 
GO TO 4 

3 a LPH5=90.~ BFL5 

DlFt3C=RS 

D 5=2*0XFSC 

A l .P6R=ALPH5/57 • 296 

" CU5=C5<C0S<ALP5R> 

4 06D5=S0LVE RALPHS f A) 

06=05^0605 . 

■*" p 6=06/2. 

ri!8=r.U5/0605 
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■ • ‘ . soyov+oz=isyov 
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29 Ci 00 

• • • • ' o=o«aov 
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£S'T8 4 T8 (GHISS)JI 
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0=GAISd iZ 

ZL*XL*XL CC- aV1S)JI 
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lUT v 2C/2**2n*GX3dG=GX3HG 
2**lIHd*I * Q=GX3dO • 

/X** *7=30X3 _ _ . 

- - ld*8S*T=3G "69" 

(6SW£/1V)1W0S* # S=1G 
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*9H*999T •Q)ldOS/SS # 0t/+*X) 90'~1V*2** 13*9'd+D*SdS8* (£G^32TT81* 0 )=SdSHO 

S**(*»i*T+< (SdS>IX* # 2)/OSa)90nV*'S8899'0} /• T-SdSd 99 

__ . — ” 89<SC2^6£'('9n+3 4 t-3d)dl' 

(SlA*9yO’99C')/OHy + 9nD + 95G=3a 

bU+T # T+( •S/<S**SU*tS*T-S*+ia> )l’d03 = DSa 

_ . - '(69lW*£/ZV)ldGS+tIt‘T=Za' t79 

69 01 09 

• . (T 

{0*9y*999t # b)iyGS/*lS+*I)903V*2** Zb*9y*0*SdSd+ ( 3Q-32T T 31 * 0 ) - SdGHG 

S**(ljl*T+((Sd5XX**2)/OSC)901V^83899*0)/*X=SdSd 99 

99^302-902 { 90+3 * X-3d ) dl _______ 

~ “ ~ ( ^fAW&C * 98^ 390 =3d 

S8*t*T+( *2/ (2**36*12 *T- 2 **ia) )ldCS=OSG 

<6ST*jT "E/IV ) IciOS^ *2-10 £9 


29 4 T9 4 T9 {*C-9HVU-)dI 
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47 


000117 

"000118 

000119 

000.120 

00U121 

000122 . 
_ 000123 
" 000124 ~ 
000125 

000126 

COO 127 
000123 

^000 129 

C 0 0 i 3 0 
C00131 

000132 _ 

00U133 " 
000134 

000135 _ 

0 00136“' 
000137 
„ 00 0138 
‘0 00139 " 
000140 

000141 __ 

000142 ‘ 

■ 000143 
_ 0(10144 _ 
000145' 
QUO 146 

000147 

00U14B 
000149 
__ 00 0150 
“000151 ” 
000152 
__ 000153 
0 00154 ' 
000155 
_ 000155 
‘ 000157 “ 
000158 
00U159 
000160 " 
000161 
C 00162 
”000163 " 
000164 
000165 
’000166”“ 
000167 
000168 
”000169 
000170 
000171 
000172 
000173 
G 0 0 1 7 4 
000175 
000176 


2 05_ NOG 0= l . • • • ^ ; 

GO TO 200 

207 IF (LOOP) 209,209,21.1 

209_NSKIP:-.l ; 

GO TO 200“ 

211 IF f F’R INT ) 82 , 82 , 212 

212 WRI TE ■’ 3 , 21 4)_ j 4 — 

214>CRV:AT(//5X, ’HOUSING STRUCTURAL LIMIT EXCEEDED IN FINAL ITERATIONS 

l*//> 

_02 M--M+1 „ . ‘ 

‘ IF (PRINT) 200,200,210 
210 STAY= : LAHG ’ 

J r ( FL 1HG-3 . ) 93, 93,91 

91 FLAHG“FLAHG-3/ 

93 lF'(FLAHG-2.) 104, 105, 106 

_104 WRITE: ( 3 r 94_) • j • ' " • ' 

“ '94” FORMAT { 5X, r *** SINGLE DISCHARGE - SINGLE TONGUE VOLUTE ***V) 

GO TO 97 

1 0 5_ V.'R I TE ( 3 , 95 ) 

" 95 "FORMAT (5X, ’*** DUAL DISCHARGE VOLUTE ***»/) 

GO TO 97 •* 

106_ WRITE (3,96) ; 

“ 96 FORMAT <5X, ’*** DOUBLE VOLUTE ***«/) 

97 FLAHG=STAY 

15 FORMAT ( 5X , * VOLUTE BASE CIRCLE DIAMETER, D6* , 9X,F10>3»2X, ’ INCH’ ) 

’”‘19 FORMAT ( 5X,’ VOLUTE THROAT DIAMETER , D7’ , 14X7F10 .3, 2X, ’INCH’ ) 

17 FORMA~(5X, ’VOLUTE THROAT ABSOLUTE VELOCITY, 07 * , 5X , Fl 0 . 3 , 2X , ’ FT/SE 

1C’) _ „ . 1 _ 

27 FORMAT (5X, ’HEA'D LOSS ; COEFF, DIFFUSER, -PSIVO’ , 8X,F10 .4, 3X, * *** * ) 

29 FORMAT ( 5X , ’HEAD LOSS COEFF, HOUSING, PSHSG *, 9X , F10 ♦ 4 , 3X ,’***♦ /) 

_ 31 FORMAT (5X, ’PUMP OVERALL HEAD COEFF, _ PSIOV 9X , F10 * 4/.3X ,_»*** O 

‘”3 3 ” F 0 R M A T ( 5 X , ’ V 0 L U T E PRES SUR E7 PM ’ , 2 1 X , F 1 0 . 4 , 3X , ’ PS I ’ ) 

35 FORMAT ( 5X , ’ REO * TOT. BLADE AREA , ADVRO’ , 13X ,F10 ♦ 4, 3X, * SQIN V) 

_ 37 FORMAT (5X, ’EFFICIENCY, HYDRAULIC, ETAHI T , 1.2X , F10 * 4 > 2X , * ***’.) 

""39 FORMAT (5X, ’EFFICIENCY, OVERALL, ETADV’ , 14X’,F1 0 . 4 , 2X r ’***’) 

41 F0RMAT(5X, ’HEAD LOSS COEFF , EXIT DIFF, DPEXD’ , 7X , F10 . 4 , 3X , ***** ) 

441 F0RMAT(5X, ’.TOTAL HEAD RISE, HTOTF’ , IPX ,F 10.3, 2X, ’FT’ > 

43 FORMAT ( 5X , * MAX EXIT DIAMETER, 08 * , 19X , Fl 0 • 4 , 3X , ’ IN ♦ ) 

45- FORMAT (5X, ’MAX EXIT DIFFUSER LENGTH, EXOL’ ,10X,F10*4,3X, ’IN’/) 

47 FORMAT ( 5X , * MIN EXIT VELOCITY, C8 * r 19X , F10 . 4, 3X FT/SEC * > 

" 4fi‘ F0RMAt(5Xf ’REYNOLDS NUMBER, VOLUTE, RE’ , 13X,E10*4,3K, ’***’) 

49 FORMAT <5X, ’FRICTION COEFFICIENT VOLUTE, ■ FSFS’ ,7X»F10*4,3X, ’***• ) 

50 F0RMAK5X, ’VOLUTE HEAD LOSS, QHSFS ’ , 17X , Fl 0 ♦ 3 , 3X , ’ FT ’ ) 

51 FORMAT <5X, ’EXIT DIFF HEAD LOSS, DHEXD ’ , 14X , Fl 0 . 3 , 3X r ’ FT ’ / ) 

52 FOKMAT(5X, ’HEAD LOSS COEFF, VOLUTE, DPSFS *, 10X , F10 - 4 , 3X ,’***’ ) 

WRITE (3,15) D6 _ _ 

WRITE ( 3, 19 ) D7 

WRITE (3,43) D8 

WRITE (3,17) C7 4 • : 

WRITE (3,47) C8 
WRITE (3, 45) EXDL 

WRITE (3,48) RE . 

WRITE (3,49) FSFS*’ 

WRITE <3, 50) DHSFS 

WRITE (3,51) DHEXD __ ___ __ _ _ i _ ; 

WRITE(3,52) DPSFS' ' • "" 

WRITE (3,41) DPEXD • 

WRITE (3,27) PSIVD ; . J ; 

WRITE (3,29) P5HSG . ■ 

’/.RITE (3,33) PM . 
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DAf [; 28 A ? >' 7 ;• 


“ooooor 

C00002 
000003 
"000004 
0000 CO 
000005 
' 000007 " 
000 COS 
000009 
'000010 
000011 
000012 
"000013"' 
G 0 0 0 1 4 
_0UQ015 
0 00016": 
000017 
000018 
'0000 19 ' 
000020 
000021 
”000022 " 
000023 
000024 
00 0025 " 
000026 
•000027 
“908028" 
000029 
_CO0Q3O 
“000031“ 
000032 
_C0 0033 _ 
00 0034"“ 
OttO 035 
000036_ 
000037 
000038 
000039 
"000040 
00 0 041 
000042 
”000043” 
000044 
00 0 045 _ 
0 0 0 0 4 6 
000047 
000C48 
'“0 00049 ' 
000050 
QUO 051 

000 052 

Q o u 0 3 3 
000054 

0 00 055 

000056 


~rJ3p;ct jt x ne -.sizer ~~ 

COMMON XK(8) rXZ(S) »XFR(8> #XR(S> 

COMMON DHl#RMl#HfRA#RC#B3Mi#CLINDf THING# ZL#DHIND»BLK1#A1#AB1#DPIND 
"1 f BBC 1 f 33C2# FiBC3 # CLC.t #CLC2 » CLC3 # CLTS# THC1 # THC2~# THC3 * THTS # CURS # THRS # 
2 CLIMP# THjMP# CLT 0T#THT0T#8LK2# A2# SOLI# S0L2#S0L3#S0L4 # SOLS# SOLI?# SOL 
3TC#DH2»DH3#DH4#DH5rDHlMP.0HT0T#RP2# RP3»RP4# SM#OI #SIG#DR#CM2#SCL 
“ COMMON OTlf'EPS*D2fB2f BQTlVSBSf 2t 20‘f 21 •Z2>Z3F24fN2fKBMI0rXSI f CPIMP 
C OMMON WP » XN r RHO #OK 1 # HNPSH # HTOT # PH I MN r VH KM # ET AH I # PSITH # £SHR # RWR 
COMMON XKPHl»PHI21#PMl22fPH123fCMlfUTlfPHTlTfSpXNS» c, SXOrPHl2fNCASE_ 

- COMMON 1 FLA G > VIS# FLAG 0 # W WR r U2 # PS 1 3L V DP I PS » 0 S 1 1 P f PS 1 1 # FRD 
COMMON B4 r RL # REX #R4# BETA. P.FL4# ZD r DINLT# 01 STH # TIN # T0JT#XL#V5# 

1RADUS < 95) # THETA #RADTH # ALPHA * RAO » DELTA # GAMMA # ARO » RAR . RLOC # CVAN# 

“2ANVAN*BXBf OIFBCpROXS'i ADIS? THICK fTHI'CO'V'STANG'iTRACO /SOLID >BBM4f"”* 
3B8M5 #FEE # ACROS # AEW # ABS1 #DH # AR # AThT ? R 1 # NOGO # NSKIP # 0 :> TFI # PR INT # FI2 

COMMON R I OP T # R 1 3 M # R 1 8 L # R I B H # D E L # B F L 5 . OE9 # RMT H # OM PR. # DME W • 0 M 0 V 

""'COMMON V4# Mr XKDVOf XK 1 VD » XXFVQ ? EVD » FLA # ' XKGD # 0 * OD # OMTOT 

COMMON RPHG # SSTHG # FSTHG # XKSFS * XK^SC # 06 # D7 # C7 # DPSSC # DPSFS # DPSMC # C34 
COMMON RLBETfRLZDf SBETA » SZD » PSHSG #ETAOV# LOOP? FLAJHG# B.9 

- COMMON GLUT » FI NC # 8E.L0 # RBPM # D9 # R867 * THRV # ZRV # ROSV # TEX5 t DLDM # BCM5 
0=449* *WP/RHO 

0I=0*C1.+0KI) 

Wl^P=WP*(l'.+OKI) 
g:=q: 


ii 


10 

”15 

20 


S~XN*SQRT (015 /HNPSH**0 .75 

~S PR M = S /SO R T ( 1 • -2 PS * * 2 ) 

PHI IT-3574. /SPRM 

0T1«4 • 54* ( 01/ ( (1.-EPS**2)*XN*P HI1T ? )**0 .333 
Al = 0.785397*OTl**2*(li-EPS**2) . ; T ™ 

'CM1=0.321*QI/A1 

VHK I =64 . 34Q*HNPSH/CMl** 2 ■ ' ‘ 

”l F < V HK I - VHK M" > 1 0 # 15 # ”l 5 ' 

PH 1 1T-PHI 1T-0 * 01 

GO TO 11 . 1, 

I F ( PH I X T -P H I MN > 20 # 25 r 25 
CM1=S0RT ( 2 . *32 . 1 6*HNPSH/VHKM ) 

A1=.321*0I/CM1 


12 


DT1=SQRT ( 4 .*A 1/ (3 .l416*a.-EPS**2>)) 
UTl=XN*DTl/229. 

PHUT=CM1/UT1 


25 


301 

'302 

303 

312 

313 


IF (PHI 1T-PHIMN) 13 #25 #25. 

XN=XN-1000. 

GO TC 12 : 

' BBFL=ATAN ( PH lit) *57 .296 
P9T1=1.74*3BFL 

UT1=CK1/PHI1T _ • , ■ 

'XNS=XN*SORT(0 )/HT0T**b.75 
S0=XN*SORTCG)/HNPSH**.75 

S l=XN*SORT (OIJ /HNPSH** . 75/SORT ( 1_. “EPS**2L 

IF (882-18* )* 50 0 # 301 # 302 

PHI2=0 . 0465E-03*XNS+0 * 040 

GO TO 320 

I F ( 332-25 • ) 500# 303# 312 
PHI2=0.0535E-03*XNSf 0.057 

GO TO 320 

I F ( BB2-30 • ) 500 #31 3 #304 
PH!2=0*06121E-03*XNS+0. 06258 




BRUN£R*42*250*i* 100 ' 


DATE aa~’APR ' 72 ' 


_ 000057 
COO 058 
000059 
_ 000060 
000C6I" 
000062 
__0 0 0 0 6 3 
000064" 
000055 
_000 C55. 
300067 
OOG 068 
C 00069 
"01JU0 70 “ 
00C071 
_00 0072 ' 
000073" 
0 0007 4 
000075 
’’ C 00 0 76 
000077 
000070 
"o 00079 ' 
000080 
000031 
~ C! 00062™ 
000033 
0 00 084_ 
“b 00085 ' 
OC 0066 
_0C 0087_ 
0 C 0088 

o:oos9 

o:oo9o 

"0:0091“ 

000092 
_OOOC93_ 
0 0 u 094 
000095 
J3 00096__ 
000097 
000098 
JJ 00099 
00 0100™' 
cocioi 

C-JO 102 
0 0 U 1 0 3 
000104 
0 0 0 1 0 5 _ 
"000106' 

C 0 0 1 0 7 

oooioa 
"boo 10 9" ' 
000110 
000111 
000112 " 


; GC; TC 320 

304 r iF"( 032-35". ) 500*305*306 

305 PHI2=0.0675E-03*XNS+0.067 
_ ; GO TO 320 

306 IF <332-457) "500 0077308 

307 PH 12=0 • 0795E-03*XNS + 0* 075 / 

GO TO 320 ■ 

308 IF C 332-60 7) 500*7 309 f 310 “ ~~~ 

309 PHI 2=0 • 0935E-03*XNS*0 * 086 
GO TO 320 

310 IFCBB2-90.) 500*319*500 

319 PHI2=0.12E-03*XNS+0.12 

320 G~(90*-B3?)/57.296 

C-CO.S^G) " 

A=5. 5 7 97*C**2/2* *2-19. 233*C**4/Z** 3 + 8. 6584 *C**4/Z** 4* (8. *C**2-1. ) 

PSI0=EXP(-2.*G*SIN<2.*G)/Z) *EXP(A)/( { 2 . *C ) ** ( 4 . *C**2/Z> ) 

FI2=PHI2 ' 

PHI2=XKPH1*PHI2 

_ 516 FORMAT ( ///5X * **** OUTPUT ♦****/> 

WRITE <3*5I6> " • : 

WRITE (3*33) XN 
WRITE (3.39) XUS 

WRITE (3* 37) "'SO ' " ' “ 

WR I TE ( 3 * 4 9 ) SI . 

WRITE (3* 51) WIMP 

WRITE (3743) Of' ~~ ' — — — 

WRITE ( 3 » 41 ) BBT 1 
WRITE (3*31) DTI 
'write ( 3* 32 f Al 

. WRITE (3* 33) CM1 
V/R ITE ( 3 » 34 ) UT1 

WRITE (3 *'3 6 ) ' PH II T " " 

WRITE (3*45) FI 2 . .. 

WRITE (3*47) PHI2 

WRITE ( 3*2 ) P S 1 0 

2 FORMAT < 5X *» SHUTOFF HEAD COEFFICIENT* * 16X*F8.3* 5X* * **** ) 

; 31 FORMAT (5Xf * IMPELLER INLET DIAMETER ** 17X *F8 .3* 4X* *INCHFS* ) 

32 FORMAT < 5X * *IMPELLER~"lNLET "AREA , 7~2.l f Ff -f f X 7*S<f if )' r 

33 FORMAT (5X* ’IMPELLER INLET MERIDIONAL VELOCITY* *F14.3t 4X * ’FT/SEC * > 
34_F 0 RMAT ( 5X * * I MP LLR_ 1 N L E T__T NG NT L VELOCITY * » 1 2X * F8 • 3 * 4X * * FT/SEC * ) 

3 6 F'ORM AT ( 5X * * 1 MPLLR I NLE T FLOW COEFF IC I ENT" * *‘l 1 X * F8 . 3 * 5 xT*V**"» ') 

37 FORMAT ( 5X * * SUCTION SPECIFIC SPEED r SO * * 12X * F10.4 *4X » *RPM*GPM**0 ,5/ 

1FT++0.75*) _ ■ 

38 FORMAT ( 5X f' IMPELLER ' ROTATIONAL SPEED * * 13X * F 1*0 • 3 * 5X * *RPM r ) " 

39 FORMAT <5Xr ’SPECIFIC SPEED * * 24X * El 0 . 4 * 4X * * PPM*GPM**0 . 5/FT**0 . 75 * > 

4 1 FOR M A T ( 5 X * .* I NLET . T I P BLADE ANGLE * * _? 9X # F8 • 3 * 4X_* * DEGREES * ) 

43 FOR M A T ( 5 X » * • I M P ELLER FL OW RATE * ’6T *" * 1 7 X * F o 73*' 4 X * * G PM* ) 

45 FQRMAT(5X* ’DISCH FLOW COEFF REC * SHROUDED IMP. * * 4X* F9.4* 4X* * *** * ) 

^7 FORMAT (5X* * DISCH FLOW COEFF* INITIAL,* * 14X* F9. 4_*_ 4X ****** ) 

49 FORMAT <5X* ’SUCTION SPECIFIC SPEEdV”s 1' * *12X * ElO-fi *4X7* RPM*GPM**0,5/ 
1FT**0 . 75 * ) 

51_ FORMAT (5X*_* IMPELLER WEIGHT FLOW *_WIMP_* * 1RX* F9. 3* 4X* * LB/SEC* ) 

GO TO 600 
500 NO 60=1 
_ 600_RETURN_ 

END “ ~ ‘ *™ ' ‘ “ " 
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2. AXIAL THRUST BALANCER STABILITY ANALYSIS 



J, J. Brunner 
5-4 ->7 2 

COMPUTER PROGRAM 

AXIAL THRUST BALANCER STABILITY ANALYSIS 

A 

I. INTRODUCTION 

The dynamic stability of a series-flow self compensating thrust 
balance system operating with liquid hydrogen is analyzed. Two methods 
of analysis are presented: The energy method and the root locus method. 

In addition to stability parameters, the program also prints out balancer 
capacity, flow rate and orifice pressure drops for any specified balance 
piston position. 

This program was written for the parametric evaluation of the axial 
thrust balancer design of the NERVA Turbopump described in Reference 1. 

II. DESCRIPTION 

The thrust balancer schematically shown in Figure 1 is a double acting, 
series flow balance piston which is integral with the second stage impeller 
disk. Fluid is bled from the second stage impeller discharge and forced 
through the high pressure orifice into the balance piston cavity. From the 
balance piston cavity the fluid passes through the low pressure orifice and 
discharges into the sump. The sump is vented to the first stage impeller rear 
cavity through multiple internal flow passages and a common external line 
which permits installation of venturi flowmeter. 

Maximum thrust (towards suction) is achieved with the high pressure 
orifice closed while minimum thrust is obtained with the low pressure orifice 
closed. 


Reference 1 - Aerojet Nuclear Systems Company Engineering Operations Report 
N8300R:71-076, NERVA Turbopump Design Report, Volume 1, 
September 1971. 
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FIGURE 1 


O 

BALANCE PISTON SCHEMATIC 





The balance piston operates between the second stage impeller 
discharge pressure, P-j , and the first stage impeller rear cavity pressure, 
P 2 , (Refer to Figure 1). The effective pressure differential across the 
balancer face is reduced by the pressure difference, P^ - P c2 , resulting „ 
from fluid rotation in the balance piston cavity. This pressure difference 
is calculated using the semi -empirical method presented in Reference 1. 

The angular velocity of the cavity fluid may exceed one half that of the 
rotor because of the very small axial clearance. 

After assuming starting values for fluid density at each orifice the 
flow rate is calculated from the following equation by an iterative process. 


W 


2g 


P 2 - P 1 - AP c 


1 


1 


7772 
C 1 A 1 P 1 


r 2 . 2 
C 2 A 2 p 2 


1 

r 2 

^e p e 


1 

2 


where: 


A 1 

A 2 

6 

X 

C, 


2uR 1 X 

2ttR 2 (6 - X) 

total axial clearance 

high pressure orifice gap 

high pressure orifice flow coefficient = .85 

low pressure orifice flow coefficient = .35 

vent line resistance, calculated = 5 | 
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Using the first approximation of the flow rate the pressure drop 
through each orifice is calculated. The fluid frictional heating in the 
cavity is estimated using the friction coefficients based on Schultz-Grunows 
data presented in Reference 2. The frictional power is calculated as follows: 

P tric = .9223 do' 8 ) K p N 3 (R 2 5 - R, 5 ) 

P . ' = disk friction horsepower 

nc 

K = friction coefficient 
p = fluid density (lb/ft 3 ) 

N = speed (rpm) 

R^ ~ outer radius, (inch) 

R.j = inner radius (inch) 


The friction coefficient K is a function of Reynolds number and clearance 
to diameter ratio. Values of K for smooth and rough disks are published in 
Reference 2. 


The friction loss results in an enthalpy rise 
550 p. . 

Ah = — _Jin£ 

J " W ~ 


and the resulting temperature rise is obtained by dividing Ah by the specific 
heat Cp. 


Assuming an isenthalpic process through all orifices and considering 
the frictional heat input in the cavity, new values of fluid density are obtained 
for cavity, sump and exit. These new values are used in place of initial 
approximate densities and the entire flow calculation is repeated. Two to three 
iterations are generally required depending on the starting value to achieve 
consistent values of fluid density. 

Reference 1 - Pratt & Whitney Aircraft, Florida Research and Development Center, 
Investigation of Pressure Prediction Methods for Radial Flow 
Impellers, PWA-FR-1276, 8 March 1965. 

Reference 2 - A. J. Stepanoff, Centrifugal and Axial Flow Pumps, 2nd Edition, 

J. Wiley & Sons, Inc., New York 

A 



Cavity and sump thrust is calculated by numerical integration of 

2 

the pressure profile, assuming a linear variation of pressure with R . 

The dynamic stability analysis is in essence based on the energy 
method and the root locus method discussed in Reference 3. 

III. INSTRUCTIONS 

t 

1. The total travel DELT is divided in even increments of 0.001 1 

inch. Present array size limits the effective travel to be analyzed to 0.019 
inches, e.g. the maximum value for LIM is 19. 

KSTAR permits analysis to start at a higher value of X. To 
avoid rubbing X will always be larger than 0.001. 

2. If NFLAG is negative only the steady state operation of the balancer 
will be analyzed. If NFLAG is positive the entire analysis will he carried out. 

3. Orifice coefficients C0RF1 and C0RF2 based on Rocketdyne data 
are 0.85. 

4. The line loss coefficient between sump and exit is 


CLINE = K - 

^ AP line p ex 

This coefficient must be estimated from ducting layout. 

5. For disc friction coefficients refer to Reference 2. For most 
applications CFRIC = 0.22 x 10~^. 


Reference 3 - Dynamic Stability Study of a Series Flow Thrust Balance Piston, 
North American Aviation, Rocketdyne Division, Report R-6809P-1 . 
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' NOMENCLATURE INPUT 


SYMBOL 

' NOTE 

DESCRIPTION 

' UNIT 

' ' FORMAT 

R 1 


. Radius High Pressure Orifice 

In 

F 

r 2 


Radius Low Pressure Orifice 

In 

F 

4 

R 3 


Radius Sump 

In 

F 

DELT 


Total Travel 

In 

F 

DCL 


Cavity Clearance 

In 

F 

VS 


Sump Volume 

In 3 

o 

F 

VOLTP 


Tip Cavity Volume 

In 3 

F 

PI 


Static Pressure,HP orifice Inlet 

psia 

F 

T1 


Temperature, HP Orifice Inlet 

deg R 

" o 

F 

RHOIN 


Initial Inlet Density 

ib/fr 

F 

P2 


Static Pressure, exit 

psia 

F 

ROEX 


Initial exit temperature 

lb/ft 

F 

LIM 

0)* 

Limit of Increments of Travel (19 max) 

- 

I 

KSTAR 

(l)* 

Starting Value of X 

- 

I 

NFLAG 

(2)* 

Flag Defining extentof analysis 

- 

I 

CORF! 

(3)* 

Orifice Coefficient HP 

- 

F 

C0RF2 

(3)* 

Orifice Coefficient LP 

- 

F 

CLINE 

(4)* 

Line Loss Coefficient 

- 

F 

RPM 


Rotational Speed 

rpm 

F 

WROT 


Rotor Weight 

lb 

F 

EPS 


Ampltidue 001) 

In 

F 

CFRIC 

(5)* 

Disc Friction Coefficient 


E 


*Refer to Instructions. 
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1 ” C u't'o c u> * V? /i72*./wc>0T<jn**?n**<-i> ■ 

^ [ X 0 xu , 3 X^ V^n^vI.K 1 1 1 v , • c a v t ty a • , isx. 'sound vfl-.i 
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C5(J) = a LS ( C L AMD { J ) * SI . A MS ( J ) ) 





\. 

;i 


0 u o 1 5 

2 2 U + 
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XKP(J) = C2(J)/C4{.J) 





j! 

1 

00703 

246+ 
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XLS( J)= C7( J)/CO( J) 

, 




t 

"•j 

0 0710 

251 * 

Of 5 63 < J ) = (Cl ( J)*C10(J) - C3( J) *C6( J) ) /fC4 ( J) *C7( J) ) 







00711 

252* 

150 ZLT03 ( J ) = (C2(J)*C10{J) + C3(J)*C7(J) -C4 ( V J ) *C6 < J) ) / (C4 ( J) *C7 ( J> 
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00 747 

2o7 * 


2C (J) =XKiM J) *ZFT0l ( J)/7FTO?(J)*YC t J ) /XC < J ) * SORT t 1 1 . +XC ( J) **2 ) / ( 1 . 

00747 

266* 


inctj)++2J ) 

ou7b0 

2t j9* 


1>5(J) = ^L'rn^tJJ+OMErbAtJJ/tOMbO^tJJ-OMrGAtJ)**?) 

007b 1 

27u* 


Y6(J) = YC(J) 

0U762 

271* 


SI!:r j 2t J)“UI6(J)~YS(J) ) /SORT t (1 .+US(J )*+?)+( 1 •+Y5(J)**2) ) 

00763 

272 * 


Z5( J) =XKS( J) +Zr:T03( J) /2FT02t-J)*Y?{vJ)/HS(J) + S«RT( (1 .+U$(J) *+?)/(!. 

00703 

273 * 


1+KS( J) **2) ) 

00764 

2 74* 


C PC ( J ) =o * 26 3 4 + AO * ( P 1 -PC ;’■•'( J )) * X3 AR ( J ) *E D S**J? * 7C(J) * SINPI(J) 

00700 

27b* 


CFS(J) = o.2/i34 + AS*(!n-PCM(J> > *X!3AR(J)+FP5 **p*ZS(J)*SINP2<J) 

OO/Oo 

276 + 

160 

cpt(J) = cpc(j) + cr»s(j) 

00760 

2//* 

299 

FCPFAT (/2X* * InTFRMCiUATF VALUES*/) 

00761 

2 76* 

30u 

F0f<; *\T(J0 a, »XhAR» »6X# »X» ,RX, *YC» *7X, * SIN (PSU) * ,4X» *ZC1 ♦ ,7X» 

00761 

2 79* 


i f * ys' »6Xf • srupsia) * ,4X* 'zs?'/) 

00762 

260*' 

302 

F bPF A TiFlb.3, 6F 3 0 * 4/ > 

00763 

261 * 


WiaT6(Lb*X49) 

Gu7ub 

262* 


■.vKITc Ci.vU3MC) 

00767 

263* 


Wr:ITMLW»307.) (XBARtJ) ,*C<J> >YC(J) ,SINPt (J) *ZC(J) ,\)5(J) *YS(J) * 

00/67 

26** + 


1SIPP2CJ) > 2 6 ( J ) f J-KSTAKfLlM) 

01005 

26b* 

3lj 4 

FGPPAT l /2X r * STABILITY PARAMETER * / ) 

0 1 Olio 

266* . 

. 320 

F6I6-AT (/32X» »* ! Oi<K PFK CYCLE*/) 

01007 

267* 

306 

F OPMATM 0X» f9Xf «CPCr T NLR » * 6X r * CPS * T^lR * » 6X ,« CPT* I^LB*/) 

01010 

22*6* 

30b 

FC f? F A r ( F 1 5 . 3 r 3F 1 5 • 4 / ) 

mull 

269* 


V;K J T2 (i.i; * 304 ) 

01013 

2 9 u * 


WKITL' (LYf 3j0) 

01015 

291 + 


W.U 

01017 

24 2* 


OI*.ni:iLvli3O0) tX r jAR( J) rCPC(.J) ,CPS(J) /CPT(J) , J=KSTAR*LIM) 

0101 7 

29b + 

c -wools 

01030 

294 * 


DO 1 6 0 J - K b T AF . t L 1 i*i 

01033 

29b* 


HPT(J) = . 2CT01 ( J) /.?•/{ 1. . + A5*XKSU> /AP/YKP(J) ) * 1 1 • +AS*XKS ( J) /AP/XKP 

0 1 u 3 3 

246 * 


1 { J } +2LT03 t J ) //FTOl ( J ) ) 

u 1 o34 

297 * 


ART (J) =0^.5 ; 1 1 J ) / < 1 .+AS*XKG ( J) / AP/XKP t J) ) * ( 1 • ( J) / AP/XKP ( J) * 

01034 

296* 


1 0 .5 0 3 ( J ) / 0 '■ ' S 0.1 1 J ) ) 

Giu33 

299* 


RU2 = r i f'< T t J ) + + 2 - ART(J) 

01035 

3u0* 


IF ( H I 1 2 ) 172*170,170 

01041 

3ul* 

170 

S1(J) = -DP TtJ) + S0UT£RT12) ... _ . 

0 i 0 42 

302 * 


62(J) = -JU'TtJ) - SORT(RT12) 

01 U 40 

303* 


Sil ( J) = 0 

0104 4 

304* 


S2HJ) ' 0 • 

01045 

30 6* 


GO TO 374 

01046 

306* 

172 

S1(J> = -rSWT(J) 

0x047 

307* 


52 t J) = 51 (J) 

01050 

30 c* 


51 1 ( J) = ?>VUi ABS(KT12) ) 

01051 

3 b 9 * 


521 t J) = -51 I (J) 

01U62 

310* 

. _ 174 

[U34 = (Z£T02( J)/2. ) **? - 0:i5Q2(J) . ... 

01053 

311 + 


IF ( RT34 ) 17R* 176, 176 

0Io5b 

312* 

176 

Sot J) =-2£T02t J)/2.+5tiRT(PT34) 

0105 7 

3 1 3 * 


64 (J) =-2ET02(J)/2.-50RT(RT34) 

01060 

314* 


531 ( J) = 0 

01061 

oib* 


541 (J) = 0 

01062 .. 

3.16+ 


GO TO 179 \ ■ 

01063 

317* 

17b 

5o ( J ) = -25T02(J)/2. \ 

01064 

316 + 


54(0) = S3 ( J ) 

0 1 0 o 5 

... 319 + 



r>JI(J) = S'JRT(ABS(«T3*»)). . 





0 1 Mt.H 
UlUt./ 
Oil) 7*1 
0 1 U 7 2 
UiOVi 
0 1 0 7 3 
on; 74 

0 1 'J 7 4 
0 11)70 
0107b 
U11UU 

onoa 

01104 
01 ll>4 
01104 
01122 
una 
oi la 

C 1 U 4 
Gll?b 

on? 4 } 
oi 126 
omv 

M112 
01 13*5 
01134 
0 I I 3b 
01 13*> 
01137 
0114 0 
01141 
oii^a 
0114 a 
0114 a 

0 1 1 4 j 
0114 6 
Oil'! 7 
out' a 
0 1 lVj 
UUU) 
01160 
01163 

0 1 loti 
01167 
01171 

0117 a 

01176 
0 1 1 7o 

01177 
giao i 

01204 
012. >6 

01 a ob 
on io 
<nai a 

oiai 4 
o i a i 
C L 3: 1 > 


3a.i * 
bait 

3 a a + 

323 

324 + 
3ao + 

3witj t 

3a 7 + 
320 + 
3^9 + 
3 3 U * 
331 * 
J02 + 

333 + 

334 ♦ 

33*3* 

33o* 

33 / * 
330. + 
3 3 V ♦ 
34o* 

34 1 * 

342 + 
34 3 + 
34 4-* 
34 1>* 
34b* 
34 / + 
34 0 + 
349* 
ob0 + 
3b 1 + 
3b2* 
3t>3 * 
3b4 * 
3bb + 
Obo* 
337 + 
3S;>* 
3 39 + 
Out)* 

361 + 

302 + 

303 + 
36-+ * 
36b +■ 
3oo* 
367 * 
3n3* 
3o9 + 
o /<; * 
37 x * 
37a * 
373* 
37 4 + 
37*^ * 
3 7b + 
3 / 7 ♦ 






\ 


r.4T(J) = . SuPT ( Arsc-’T34) ) 

179 CuUUUUt 

Uj* comY liiur: ^ 

3a a Fop-- a r ( /ax* *i;or*Tb*/> 

324 FORMAT ( t 0 >' r * XRAR + * 12X * * ROOT 51 * f 3 oy r +POOT *32* * 19X + ’ROOT S3**19X* 

a+koor so*) 

32i-. RifiM/M ( l IX#* IN** 9X* *RFAL.* *7X* *lMA r >* * 11X* *Ri:AL* *7X ' IMAG**11X* 

1 + Kf AU * * 7/ f * I MAO » , 1 1 X * * RF AL + * 7X * * 1 M fl 6 * / ) 

3at FolViA nn 5.'+ *H 4,4* C12*4 Ve14.4 *£12,4 *E14.4*«l 12.4* El<i.4*E12. 4/) 

W,{ Mr. (!_■*’» 37?) 

■2KITL ( L6 * 32.4 ) 

V:KnC(L4*324) (X9Ak< J) * S t ( J) * S 1 1 < J ) * S2 ( J) * 52 I ( J > * S3 ( J) rS3I£ J) » 

1S4( J) *b4I (J) * J=K5l AP. * L.TM) 

C-rtOOT t-OCUi y.r\iic'o 

?2V FOFV.AH//2/* ’POOT UOC US METHOD* / /) 

330 FuPLAT ( 1 OX * * Xa AP * , 4X * * ROOT LOCUS OA TM * , 2X t + ^OPIF PLOT GAIN**4X*'MA 

1C OPr fj+ * 3X r »Ci>OSSOVrk FPFOU+ t 2X * 'PHASE MARGIN*) 

331 Ft-RNAl (///SX* *MU^;" r r OF ITFPATT OU5 FXCFFOrn + /// ) 

33a F Of-‘VA 1 ( 1 1 X * • i N * * 7X r * M<L * 1 /S * * ? ** 7X * * \< * 1. /S + *2 + * 7X * * LOOP K0H1+*4X* 

1 + (i*-o:0* KAi )/'M C * * 4 X * *PPTM P^'G 1 /) 

334 F (.KNf A I (F lb.3*?t-.T5.5*3FTS.4/> 

DO 196 J-K.61 Af\ * L I J-i 
U r O' 

T L S ( 1 ) ~ 51 (J) 

1LS(2)= S?.(J) 

H.5(3)= S3( J) . . . 

TSS(4)r. S4CJ) 

FLK ( J) = 7 72.+ ( P 1— P C 1 ( J) ) * ( AP*XKP< J)+AS*XKS< J) ) /XPAR ( J) /WROT 
F, f *K(J) = RLK ( J ) *5 1 ( J)*S2(J)/S3t J)/S4{J) 

0; iCLU( J) = S'jF.T (PPL ( J) ) 

\q> GuMJ) - jjPK ( J) /O;- CPO l J) +*2*SQr*T ( ( 1 *-OMCRO{ J) **2/Sl ( J) /S2 ( J) ) **? 
"lMOMCR>(J>/Si< J)+O^CHOt+i)/SP(J))**?)/SOPT( (1 . -OMCRO < J > **2/S3 ( J) /S4 

2 ( j ) ) + 4 a 4 { O. XRO { v O /S3 (vJ ) +0**CRO ( J) /f.4 { J) )**?.) 

If : ( AhStGUi ( J)-l. ) - .01) 1*2, 1A? * 144 

104 4’ -2 

DU 190 L=l*2 

IF (CLiCRO ( J) / A!iSf TF.StL) ) -1.) 1^0*306*10* 

Iflb M = i-t-l ■ ■ 

190 COftTlLUF 

r^U 19b L~ 5*4 

IF < Os'.CRO C Jl//\nS(TF.S(L) )-J •■) 195*194*194 

19h m = i*m 
l‘)b COUTIUUF 

0-*iCP0(J) = OMCPO(J) + GH1(J)**(1./M) 

IK tf l— 10) 161*163 *1 Q P. 
lrtl N=N+l 

60 TO 103 

196 v, ; l' 1 Tf.: { l.U * 331 ) ■ 

Ou 19/ L= 1 * 4 

197 Tl’- P(L) = J'-’CF.’O ( J) /ABS (TFS (L) ) 

lot; Phif.-U) s ( ATAU ( TEMP ( 1) )+ATAN(TFMP(2) )-ATAN(TW(3) ) -ATAN ( TFMP ( 4 ) ) ) 

.1 +b7 • 296 
V.’f TTL U. * 329) 

V.HI TL (Lv:* 3 3'M 
ViJlITLtLW* j.52) 

LiTTL iL'.f* 33 O (XDA'M J) *RLK( J) * 4PK £ J) #GHl ( J) * OHCPO ( J ) *PHIMUI) * J=KST 
1 hy. »L1‘..) 



01 2J4 

3bu * 


If (i-’tllvtJ) 

01^37 

3i:l * 

201 

V|VV( J); -Zl 

01240 

3t.C + 


ZCTA(J) = 1 

01241 

3^3 + 


XM-MJ) = 1 

01242 

334 * 


1S£T(J> = : 

01243 

33b + 


GO TO 229 

u 1244 

3 'jo * 

203 

X;3'(J) = 1 

0124b 

3ti7 * 


2tTA(J) = ( 

01.36 

3bo* 


XMPtJ) = 2 

0124 7 

3o9 + 


TSilTtJ) - 

ui;;so 

390 » 


CO TO 22b 

01 2bl 

391* 

209 

IF (PHINtJ)- 

Ol2b4 

392 * 

211 

X,*..m{J). = 1 

012SS 

393 * 


2f:TA(J) = ; 

01 4 So 

394* 


00 10 217 

012b/ 

39S + 

213 

X.\M< J) = l . 

01 2 GO 

399 + 


7 L T A ( J ) = •. 

013,1 

3 97* 


GO 10 217 

0 1 et t! 2 

3 9b + 

21b 

IF <Pt!i’-;( J) 

012ob. 

399+ 

221 

J) 1 

U12*.o 

4 Du* 


2cT MJ> - < 

0139 7 

401 + 


00 10 2.1? 

01270 

4 Or?* 

223 

yriptj) = i 

01271 

4 0 3* 


2LTA(J) = 

0-1272 

4 04* 


XUP( J) =1 * 

01273 

4 U b f 


isri(j) = 

01274 

4 0 c< * 


GO TO 22b 

OIL/ 1 .) 

4 3 7 * 

217 

CONST n 3 • . 

0 1 2 7 u 

4Un + 


X.'P(J) = 1 

0 1 1 :77 

4 *j '■j * ' 


Tbl'T(J) - ‘ 

oi 3 <jo 

41 IM 

22b 

COOT 11. OF 

01302 

4 1 1 * 

33 1, 

K.1 9.4 i <//2' 

0i3'O 

412 + 

33h 

FOP'+M ( 1 OX 

U 13»;3 

4 13 + 


3 1-1 fro* V 

01304 

4 14* 

' 34 0 

FORMAT < 1 1 X 

OlAO'i 

4 1 S * 

34 i 

FORMA! (Fib 

01JU& 

4 1cj + 


V .xl TF.(LV»3 

01310 

4 17* 


«».;■: II L(LV'i3. 

oi Six 

413* 


;.J< T TL ( t 3‘ 

01314 

4 19 + 


Ok 11 L ( LL * 3 

U 1 37 r> 

42U * 


GO TO 31 

01327 

421* 

999 

SI OP 


sokiu.- swn. - 


(STV(^IUM( J)/57,?96) >**2) ) 


- 1,40.) 221,221 »223 

0 • 7t> "7 * SOfiT(l.+SORT(X.-C5lN(*PHTV(J)/S7.296) )**P) ) 


IU7 + ZTCTA C J>/SORT<i.-7FTA( J)**2) 

. 1 1 •/?* 710** CONST 
4.//<C7A(J)/0**CP0(J) 

»//) 

, ' x t •. P » , 3 X f *F:>rou RFSP /U*PL* ,3X, ’STEP RFSP AMPf 
:» r .'TTLTMO TIME*) 


• i'Fl S. «i ,2F1‘ 


{VfJAPt J) ,*PM(J) rXMP(J) rZFTA(J) ,TSFT(J) pJ= KSTAU fLIM) 


EMI) Oh UfJlVAC UOH FORTRAN V COMPILATION 


0 *D I AGNOSTIC* W-ZSSAGE (5) 








X9X*1 

669*88 

£9*X10T 

6+7+7 * +7 

X89 * 28 

62*16X1 

2X0* 

2XX*1 

6X2*88 

28 * 0£0I 

££+7* +7 

288*28 

09 * SXTT 

VtO* 

. yyx *tj 

890*88 

02*X00T 

2T+7 * +7 

SVT'ES 

8£ ’ OSXX 

0X0* 

XIX *1; 

+780*88 

26*8X6 

18£*+J 

86+7*£S 

X8*9TTX 

600* 

1 X X * 1 

t7t72*98 

" 16*1£6 

X+7 £ * +7 

616*£9~ 

ee'CioT 

900* 

990*1 

£09*88 

178*288 

I0£*+7 

2 9tt*<;S 

X T * 8X0 X 

XOO* 

X66 *£ 

X96 * 98 

, X2 *6T8 

812*1 

806 * +?S 

16*086 

900* 

0T6*£ 

0+78*68 

0X*91X 

' 9XT *+? 

16£ *22 

" 22 * 1X9 

200 * 

IU8*£ 

S1£ * 09 

60 * TX9 

+760 *+; 

806*89 

T9*£6X 

100* 

S99*£ 

T19*T9 

0£ * 1 09 

8 1 0 * +7 

T8£*9S 

69 * 8IX 

£00* 

8917 *£ 

" £88* £9 

ei*9tjs 

986 *£ 

CXX *98 

X6 * 989 

200* " " **' 

£96*2 

296*89 

£+7*118 

0T6*£ 

T90*XS 

91* TT9 

TOO* 

£**ld/U1 

d 93Q 

VISd 

£**JLd/91 

d 93G 

VISd 

bVBX 

230Hd 

231 

20d 

IGOHd 

TOl 

TOd 

dV9 dH 


NOUIGNCO AXIAVD 


I 


,| 


0100* 000 *89 0*00X12 002* 058* 058* 


Ol^dO dddOO NI * dWV 91 Wdb 3NI13 SdMOO TddOO 

OIdd OSIG aanincfWV AH9I3M dOlOb Q33dS SlN3I3Idd303 dOldldO 


Sd3l2WVbVd XOdNil 


81 


008*2 00*861 001*1 02*22 00*2£2T 


- 

x uwn 

£**id/81 
X30Hb A1ISN3Q 

VISd '3d 
3«nSS3dd XVXS 

C**Xd/81 
NIOHd AXISN3Q 

a 930 'TX 
3anxva3dw3x 

xndNi 

VISd 'Id 

3bnss3bd ivis 
‘noiiigno:) amid 

1£G * 

002*1 

0£0 * 

030* 

osx*x 

009*2 

009*2 

£**NI dilOA 

£**NI * SA 

nx noa 

ni ‘vxnsa 

NI 

NX 

NI 

i A1XAVO dll 

ioa dwns 

bV319 A1IAV3 

13AVdl XOX 

dwns '£b 

dldO dl *2b 

dlbO dH 'Id 


AHX3W039 


SlSAIVNV A1I1I8V1S NOiSId 3DNV1V8 


* 

A 

'I' 

t 

c, 






r* v ; 






SUMP— AND. EXIT. .CO! 

EDITIONS. 

SUMP 


XBAR 

PS. .. 

TS 

RHOS 

IN 

PSIA 

DEG R 

LB/FT **3 

.001 

500*89. 

... 63.759 

2.934 

.002 

507.62 

63.426 

3.400 

.003 

516.90 

61.402 

3.552 

*004 

526*75. 

60.422 

3.628 

.005 

535,15 

59.928 

3,671 

.0 06 

540.70 

59.763 

3.688 

*007 

542,96 

. ...59,749 

3.692 _ 

.008 

542.25 

59.742 

3.691 

.009 

539.30 

59.812 

3.683 

..010 ..... 

534.86 

59.982 

3.667 .... 

.011 

529.61 

60.254 

3.643 

.012 

524.05 

60.643 

3,610 

.013 

518.58. 

61.184 

3.568 

,014 

513.47 

61.950 

3.511 

.015 

508.93 

63.073 

' 3,429 

_.016 

.505.08 

64.584 

3,303 

.017 

502.01 

67.260 

3.078 

,018 

499.79 

72.506 

2.553 

'SPRING - ' RATE AND 

FREQUENCY 



.XBAR 

.PRESS FORCE„ 

....SPRING- RATE DFDX — 

FREQUENCY 


1060.00 


59*368 


4*150 



£ 


1066.91 

i n7c . /i o 

60.370 

61.871 

4.118 1 

4.065 ... . - \ 

1 U / D ► 

1080.57 

64.226 

1 

3.976 | 

1085.71 
. 1094.19 ... . 

~ 68.323 
77 • 224 

“3.814 | 


i 

EXIT 

i 

FLOW RATE B 

TV 

RHOX 

WDOT ..... _ 5. 

DEG R 

LB/FT**3 

LB/SEC r 


2. q 29 

# 9K7 - ... — % 

68.716 — 

63.370 

3. 336 

it 

1.912 i 

61.345 

3.526 

2.731 

k 

60 . 387— 

3.590 

. 3.398 ... - - % 

■ 

59.913 

3.622 

3,879 

59.759 

3.633 

4,164 

59 , 747 

3.634 

4.273 . . . .... - - | 

59,740 

3.634 

£ 

4.240 | 

59.805 

3.630 

4,004 §;. 

59, 965 

3.619 

3.862 . „ - 1 

60.225 

3.601 

V 

3.568 1 

. .... - - - I 

60.606 

3.576 

3.228 f 

61.130 

t 3.540 

2.855 . I' 

61,888 

3.489 

1 

2.469 | 

” 63.014 

' 3.413 

“2.045 | 

64 • 529 

3,292 

1,619 _ - 1 

67.211 

1 

‘3.070 

1.100 * 1 

- - ft 

72.467 

2,549 

.724 .. 1 



f 



* ■ . | 

cot^t /-> autty vm pi nw 

K-PPESS - - 1 

rr\j.v i v. 


u 






HP 


IN*+3 


COEFF 


GRADIENT 



56.822 4.321 .0175 .485 

61.018 4.244 .0341 .492 

63.289 4.166 .0490 .498 






. ... - 

f. 

65.034 

4.089 

.0612 

.502 


66.609 

4.012 

• 0700 ' — 

.506 - - - — -- - --- 

t: 

i 

67.891 

3.935 

.0756 

.509 

t-.;. 

iv. 

68.920 

3.857 

.0784 

.512 

£' 

6-9.707 

3.780 

* 078ft 

.515. . . - - 


’70.273 

3.703 

.0772 

.518 

at 

70.659 

" 3.625 

.0742 

.520 

| 

70.888 

_ 3.548 

.0700 

.5? 3 . ........ ... ...... .. 


70.975 

3.471 

.0648 

• 525 

\ 

c= 

r. 

70.925 

3.394 

.0587 

.528 


70 , 722 

..3,316- 

*n51Q 

.530 „ . — 

k 

70.325 

3.239 

.0443 

.532 


69.623 

3.162 

.0361 

.534 






q 


_.3*084- 

.0271 

.535 - — - 

X- 

y 

— DOf w/UO — 

65.193 

3.007 

,0173 

.535 

c 

Vi 


q; 


SOUND VEL SUMP 

FT/S E(S> E (H) E(E) 

2334.5 3453.7 1563.9 3449.4 

2723.5 ..... 5446,8 2369.9 5432,6 

2381.2 6367.9 2635.5 6340.4 

2966.1 6894.4 2774.8 '6851.3 

„ 3914.2 - 7202.7 2850.2 7141.0 

3334.8 7335.8 2878.1 7252,6 

3339.9 7367.7 2882.0 7260.0 

. 3038.9- - 7362.3 2682.3 7227.8 










.009 . 

4039.5 

15449.6 

5224.7 

15054.6 

3029.1 

7298.9 . 

. 2870*0 

. 7136.5 

.010 

4080.0 

15862.1 

5258.3 

15350.1 

3010.3 

7176.8 

2842.4 

6987.0 

.011 

4110.3 

16175.6 

5283.5 

15534.9 

2982.6 

6999.4 

2800*3 

6784.5 

.012 

4132.6 

16409.4 

,5302.1 . 

15633*1 

2945.8 .. 

6766.8 

2741.7 

... 6531.3 

.013 

4148.7 

16577.4 

6123.4 

15839 . 3 

2899.2 

6477.9 

2665.5 

6230.1 

.014 

4160.3 

16696.9 

6133.1 

15872.6 

’ 2837.1 

"6103.6 

2561.9 

"" 5857.3 

.015 

4168.5 

16701.0 

.6139.9... 

__ 15937.0 

2751*1 _ 

5605.9 ... 

2419 .3__ 

5386.7. 

.016 

4174.0 

16838.3 

6144.6 

16140.4 

2636*1 

4957.9 

2213.1 

4804.1 

.017 

4177.6 

16875.5 ~ 

6147.7 

16552.2 

2439.8 

3957. 0~~ 

1777.0 

3896 . 0* 

..^oia.. 

4179.7 

.16897.4 

. 6149.5,_ 

„_16846.4 

. .2115.2 

2467.0 

1162.3 

2459,4. 



X8AR SOUND’ VEX MEAN CAVITY 

IN FT/S E (S ) E(H) E(E) 

~00i 2873.8 6120.1 2562.8 6113.9 

002 3125.4 7817.4 3464*3 7801.0 

.003 3285.5 8956.9 3680.4 8922.9 

.004 3439.6 ~ 10086.9 3814.4 10024.7 

* Q 0 5 .3583.9.. 11215.9 3912.1 11109.8 

.006 3695.0 12151.4 3997.8 11986.0 

.007 3787.3 12959.6’ 4911.4 12775.2 

008 3851,4 1 3554 . 6 4969 . 8 1 3296 . 0 

.009 3900.9 14018.1 5011.6 13670.4 

TOICT 3935.9 14349. 1 5032.8 ” 13899.2 

« Oil 3958 . 7__ 14562 . 9 5038. 8__ ..14001.6 

.012 3971.2 14673.3 5030.8 13996.2 

“013 3974.5 14686.7 5008.3 13901.4 


.014 

3968.5 

14600.1 

4969.0 

13733.4 

.015 

3951.6 

14395.0 

4906.3 

13520.8 

.016 

3919.1 

14017.6 

4807.6 

13309.3 \ 

.017 

3856.8 

13318.2 

4636 . 3 _ 

13001.0 
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._C0EF.£I_C1 ENTS 

XBAR 

IN 


3706*2.. „_.1173Q • 9 ...4255*4- 11685.3 


CAP OMEGA 
COMEG 


CAP LAMBDA 
.... CLAMD .... _ 


LAMBDA C 


.001 

.~0 02 

.003 

.004 
Too 5 

.006 

.007 

7o 6 a 

.009 

.010 

— Toi’i 

* 012 

.013 


.0526 

“*.1111 

. 1765 
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.4256 

. 5385 
.6667 

.8182 

1 • 0000 
1*2222 

1.5000 

1.8571 


59.1410 
14.9919 
_._. 6 * 1176 — 
3.0566 
1.7054 
1.0197.. 
.6381 
” .4118 

.2705-. 

.1792 
.1186 ' 

.0778 

.0500 


215.8410 

60.0628 

27.3187— 

15.3449 

9.7112 

6.6524 

4.8241 

3.6546 

... 2* 8602 

2.2955 

1.8793 

1 • 562B „ 

1.3160 


.9329 
.9413 
-.9514 — 
. 9620 
.9713 
.9789 - 
.9846 
.9889 
.9922 — 
.9945 

• 9962 

... .9974 

• 9983 


LAMBDA S 

.9969 

.9929 

- .9867 — 

.9789 

.9704 

... .9616 

.9532 

.9457 

. . 9388 — 

.9324 

,9262 

.9198 

*9131 


♦ 014 


2.3333 

.0311 

1.1175 

.9989 

.9052 


i. ; 

„ 0 1 s 


3, oono 

* 0184 

.9524 

.9993 ... 

... ...8948, . ... 


L 

.. . . V A w ... 

.016 


4.0000 

.0099 

.8088 

.9996 

.8802 


1 

. _ . t 

.017 


5.6667 

' .0046 

.6715 

.9998 

.3502 


f 

. O 1 o 


q. nnnn 

.oni5 

.5061’ 

.9999 

« . ,7583. .. 



T 

rACCCrrTCKlTQ ... — — fe 

X8AR 

Cl 

C2 

C3 

C4 C5 

C6 

C7 C8 

C9 

. f- 

C10 <6 

i: 

. 0 01 

1.0526 

.156-03 

60.0738 

.177-02 58.9602 

.0526 

.200-04 274.8012 

.002613 

59.141 . £ 

• 002 

1 .1111 

.173-03 

15.9332 

.705-03 14.8855 

.1111 _ 

.239-04 74.9484 

.000920 

14.992 * i 

.003 

1.1765 

.189-03 

7.0690 

.392-03 6.0362 

.1765 

.262-04 33.3549 

.000515 

6.118 ’ % 

t? 

.004 

1.2500 

.208-03 

4. 0185 

242-03 ~ 2.9922 

.2500 

.287-04 18.3371 

.000334 

-3.057 _ I 

.005 

1,3333 

.233-03 

2.6767 

.... ,157-03 1,65*49. 

3333 

.318-0*4 11.3662. 

,00023a.. 

1.705... . *_■ 1 

i 







.006 

1.4286 

.266-03 

1.9966 ... 

.107-03 

.. 9 A 06 

. .4286 

... ._ .357-04 

7.6329. 

.000169 

1.020 

.007 

1.5385 

.306-03 

1.6227 

.742-04 

.6063 

.5385 

.407-04 

5.4324 

.000125 

.638 

.008 

1.6667 

.357-03 

1.4008 

.531-04 

• 3894 

.6667 

.468-04 

4.0440 

.000095 

♦ 412 

.009 

1.8182 

.419-03 

1.2627 

.. .386-04. .... 

... .2540 . 

_ .8182 

... .544-04 

3.1142.. . 

.000072 

*271 . . 

.010 

2.0000 

.497-03 

1.1736 

.284-04 

.1670 

1.0000 

.638-04 

2.4625 

.000056 

.179 

• Oil 

2.2222 

.593-03 

1.1148 

.210-04 

• 1098 

1.2222 

.755-04 

1.9891 

.000043 

.119 

.012 

__2* 5000_! 

_.t_7l6-03 

__1.G751„ 

.156-04 

.073 5._ 

.1*5000. 

.902-04 

.1.6344. .. 

.000034 

.078 _ ... 

.013 

2.8571 

.877-03 

1.0483 

.115-04 

.0457 

1.8571 

.109-03 

1.3617 

.000026 

.050 

.014 

3.3333 

•109-02 

1.0300 

.843-05 

• 0262 

2. 3333 

.134-03 

1.3456 

•000020 

.031 

.015 

_ 4 ,0000 

« 140-02 

1.0177„ 

...602-05 

0l6>4 .... 

3.0000 

.169-03 

...9689 

..000016 

.018 _ 

.016 

5.0000 

.187-02 

1.0096 

.411-05 

.0068 

4.0000 

.220-03 

.8175 

.000012 

.010 

.017 

6.6 667 

.267-02 

1 .0045 

_ . 260-05 ~ 

.0039 

5.6667 

.298-03 

.6754 

.000009 

.005 

• .oia 

.10.0000 

440-02. 

1 . 0 015.. 

.147-05 

.. .0012 . 

9.0000 

..... .427-03 . 

..5073 

.000006 

. .0 02 
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XBAR 

KP 

0MEGA1**2 

2ZET0M1 

0MEGA2**2 

2ZET0M2 

KS 

0MEGA3**2 

2ZET0M3 

.001 

.0877 

.7041+09 

.1148+06 

.2809+10 

.1390+06 

.0077 

,1667+10 

.2906+06 

.002 

.2458 

.5117+09 

.9011+05 

.1496+10 

.1041+06 

.0260 

.8826+09 

. 1720+06 

.003 

.4809 

.3929+09 

.7266+05 

,9843+09 

.8281+05 

.0509 

,5780+09 

.1235+06 

.004 

.8589 

,3192+09 

.6211+05 

,7980+09 

.7147+05 

.0859 

.4053+09 

.9933+05 

.005 

1.4831 

.2696+09 

• 5560+05 

.7557+09 

.6594+05 

.1369 

.2764+09 

.8607+05 

.006 

2.4665 

.2341+09 

.5143+05 

.7917+09 

.6398+05 

.2119 

.1573+0^ 

.7770+05 

.007 

4.1305 

.2089+09 

.4896+05 

.9053+09 

.6517+05 

.3240 

.3581+08 

.7347+05 

.008 

6*7240 

_ ..,1917+09. 

.4792+05 

,1095+10 

.6909+05 

• 4 Q 45 

-.9954+08 ........ 

.7128+05 

.009 

10 ♦ 8700 

.1797+09 

.4781+05 

.1383+10 

.7575+05 ' 

.7519 

-.2577+09 

.7172+05 

.010 

17.5071 

. 1714+09 ~ 

.4847+05 

,1804+10 

.8543+05 

1.1438 ‘ 

T -.4503+09 

'.7485+05 

.011 

28*2396 

.1663+09. 

.4964 + 05. 

.2415+10 

.9884+05 

1.7375 

-.6928+09 ... 

... .8123+05 * 

.012 

45*9337 

,1639+09 

,5198+05 

.3315+10 

.1172+06 

2.6625 

iOOR+l 0 

. Q1 nj +OS 

.013 

75.9971 _ 

.1644+09 

~ • 5505+05 

.4680+10 

.1425+06 

4.1363 

- • J 3 * > * 1 n 

. I n ^ 

_ .014 

... 129. 6000. 

1676+09 

,5915+06 

.6625+10 

. i7ni * nr* 

r. . 




s’ 







,015 

232.5178 

.1735+09 

.6451+05 . 

.1040+11 

.2305+06 

.. 10.7377 

-.2927+10 

• 1765+06 

.016 

454.7057 

.1835+09 

.7193+05 

.1699+11 

.3149+06 

18.5799 

-.4422+10 

.2481+06 

.017 

1027.6560’” 

• 1914+09 

.7959+05 

.2978+11 

.4635+06 

33.9930 

-.7309+10 

.3834+06 

.018 

2987.5216 

_• 1827+09 

_ .8277+05 ..... 

.... .5478+11. 

.7611+06 

67.6685 

-.1434+11 - 

.6702+06 


.intermediate values.. 


XBAR 

X 

YC 

SIN(PSIl) 

ZC1 

U 

YS 

SIN(PSI2) 

ZS2 

.001 

.7169 

.2133 

.4003 

.0259 

.7550 

.2133 

,4228 

.0055 

.OOP 

• 9543 

• 3639 

.4014 

• 1054 

1.0328. . 

_ ... 3639 - 

.4373- 

.0205 - - - - -- 

.003 

1.1507 

.4966 

,3843 

.2486 

1.2917 

. 4966 

.4360 

.0427 

.004 

1.2907 

.5533 

.3952 

.4571 

1.5842 

.5533 

.4815 

.0684 

.005 

1.3557 

.5260 

.4359 

.7234 

2.0399 

,5260 

*5898 . 

• 0926 .... .... .... . - 

.006 

1.3476 

.4511 

.4870 

1.0234 

3.2538 

.4511 

.7505 

.1107 

.007 

1.2827 

.3588 

.5347 

1.3288 

29.1295 

.3588 

.9291 

.1234 

.003 

1.1870 

.2755 

,5662 

1.6196 

-2.5936 . 

. * 2755 

_ -.9951 

-.1452 

.009 

1.0787 

.2068 

.5805 

1.8945 

-.9868 

.2068 

-.8320 

-.2053 

.010 

.9683 

.1533 

.5788 

2.1630 

-.5227 

.1533 

-.5922 

-.3271 

.Oil 

j 6515 

• 1126 

.5638 

2.4424 

-.3182. 

. .1126. 

-.4080 

. -.5272 

.012 

.7602 

,0821 

.5380 

2.7548 

-.2102 

.0821 

-.2851 

-.8304 

.013 

.6669 

.0593 ’ 

,5046 

3,1329 

-.1473 

.0593 

-.2041 

-1.2816 

.014 

,5633 

,0425... 

• 4668 

,_,3. 6247— 

-.1079. 

.0425- 

-.1494 

-1.9631 

.015 

.5166 

,0305 

.4317 

4.3200 

-.0829 

.0305 

-.1129 

-3.0342 

.016 

.4895 

• 0230 

.4189 

5,4206 

-.0695 

.0230 

-.0922 

-4.8455 

• 017 

,5832__ 

„,0216.._ 

*4850 

_J*5675„ 

-.0728 . 

.0216 

♦ 0941— . 

__r8. 3673 

.018 

1.0390 

.0310 

.6987 

13.9730 

-.1043 

.0310 

-.1345 

-17.8C64 

STABILITY PARAMETER 
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WORK 

PER CYCLE 






XBAR 

CPC* 

INLB 

” CPS* inlb 

CPT 

> INLB 



** 

,001 

3.3 

948 

.1151 

. 3.. 

5093 . 



- _ - ... „ 











.003 

6.5080 


.2067 

........ 6.7147 

- 



• 

« 003 

8.8931 


.2606 

9.1537 





• 004 

11.0220 


.3018 

11.3238 





• 005 

. 13.0017. 


. ♦ 3385 . 

. 13.3402 





• 006 

14.1140 


.3535 

14.4675 





.007 

14.0248 


.3402 

14.3650 





.008 

12.8522 


.3044 

13.1567 





.009 

11.1914 


.2612 

11,4526 





.010 

9.4967 


.2209 

9.7175 





• Oil 

. _ .... 8.0205. 


..1883 

..8.2088 .. ... 





.012 

6.8401 


.1642 

7.0043 





.013 

5.9672 


.1484 

6.1155 





.014 

5.3808 


..1402 

5.5210 





.015 

5.1311 


.1417 

5.2728 





.016 

5.5190 


“.1631” 

5.6822 





.017 

7.9678 


..2570 

A. 2248 





,018 

18.6621 


.6880 

19.3500 





ROOTS 
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ROOT 

SI 


ROOT S2 
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S3 

'root 
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IN 

REAL 

I MAG 


REAL IMA6 

REAL 

IMAG 

REAL 

TMAG 

.0010 

-.'6477+04"" 

”■“.0000- 


-.1106+06 .0000 

-.2454+05 

Vbooo 
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.0000 

.0020 
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-.4502+05 

.0000 
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.0000 

n 1 p n 


• 0000 
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.0000. 
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...0000 ... .... 

.0130 
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.0000 
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*0000 
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.0000 

.0140 

-.2646+04 

.0000 

-.5707+05 

.0000 

-.5585+05 

.0000 

-.1222+06 

.0000 

• 015Q _ 

-.2421+04 

.0000 

-.6287+05 - 

—*•0000'-- 

—.6150 + 05 

.0000 

•„ -.1690+06 

..-..-♦0000.- - — 

.0160 

-.2195+04 

.0000 

-.7081+05 

.0000 

-.6915+05 

.0000 

-.2457+06 

.0000 

.0170 

-.1949+04 

~.0000 

-.7914+05 

.0000 

-.7704+05 

• onoo 

-.3865+06 

.0000 

.0180 

-.1605+04 _ 

.0000 

-• 8316+05 

„„*000G— 

-.8048+05 

...0000 

- -.6807+06- 
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ROOT LOCUS METHOD 


ROOT LOCUS GAIN 
KRLf 1/S**2 


BODIE PLOT GAIN 
K t 1/S**2 


MAG OPEN 
LOOP KGH1 


CROSSOVER FREQU 
OMCRO » RAO/SEC 


PHASE MARGIN 
PHIM DEG 


.001 

.48604+08 

.12397+08 

1.0015 

3761.5641 

21.4957 


$■ 



o i on i j.n « 

1.0054 

5249.8405 

23.9971— - - - 


; 

.*002 

.003 

. 6331 9+ U o 

•73770+08 

.29668+08 

1.0066 
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23.5024 


n- : . 

p 

.004 

.84371+08 

.33882+08 

.9923 

6972.4957 
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ntr 1 07j.no 


1 . 0087 

7120 , 

27*5699 


... V 

.... 0 0.5 
.006 

tVbiV / rUo 

.10461+09 

• / 1TUO.. 

.30813+08 

.9904 

7048.3027 

32.0087 


• 1 

.0 07 
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” .25958+08 

.9944 
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f: 

%■ 


• 12058+09„ 

•12646+09 

•13126+09 
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♦13792+09 
« 14003+09 

.14 148+0 9__ 

•14252+09 
” •14360+09 
« 1 4363+09_ 


•20762+08 

•16015+08 
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.63988+07 

.45326+07 
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*9960 

1 .0099 
.9935 
_._.9928 
1.0029 
1.0084 
JL.,0 054__ 
1.0031 
1.0016 
„1» 0076 _ 


.5856*0737 

5023.5977 
” 4309.3022 

3604.5708 

2963.6966 

2423.1989 

.. ..1970.1771 

1575.1344 
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902. 0369 


.40.4545 T 

42.5077 

43.3900 
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38.4935 

-J55.J7.001. 
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RESPONSE 








X3AR 

FREQU RESP AM PL 

STEP RESP AMPL 

damping settling time 




IN 

XMM 

XMP 

. 2ETA 1 

rs> sec 




.001 

2.7290 

1.5509 

.186 

.006 




_ t002_. 

2.4589 

... . _ 1.5130. 

.208 .... 

. .004 




.003 

2.5076 

1.5203 

.204 

.003 




• 004 

2.4125 

1.5058 

.212 

.003 




__ .005 _ 

2.1606 

1.4627 .. 

.238 . 

. . .002 




.006 

1.8866 

1.4062 

.276 

.002 




.007 

1.6718 

1.3524 

.315 

.002 




. • 008 

1.5412 

1.3143 

.346 . .... 

*002 . .. 




.009 

1.4800 

1.2947 

.362 

.002 




.010 

1.4557 

1.2866 

.370 

.003 




.... ,011.. 

1.4734 

1.2926 
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.003 




.012 • 

1.5265 

1.3097 

.350 

.004 
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1.6066 
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.330 
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1.3637 
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.007 




.015 
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.280 

.009 




.016 

2.0714 
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.249 

.013 




.017 

2.3947 

1.5030 ■ 

.214 

.021 




.018 

2.9308 

1.5756 

.173 

.040 
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CIRCULAR CROSS SECTION VOLUTE DESIGN 


J. J. Brunner 
4-12-72 


COMPUTER PROGRAM 

CIRCULAR CROSS SECTION VOLUTE DESIGN 

A 

I 

I. INTRODUCTION 

This program presents an incremental method for the design of a classical < 
pump volute with circular cross-sections which are tangent to the volute base 
circle. Volute area distributions as well as velocity and pressure distributions 
are calculated and printed out. 

This program was primarily devised to determine the percentage increase in 
cross-sectional area required for the compensation of friction losses in the 
NERVA turbopump volute which is discussed in Reference 1. 

II. BASIC EQUATIONS 




Reference 1 - Aerojet Nuclear Systems Company Engineering Operations Report 
N8300R:71-076, NERVA Turbopump Design Report, Volume 1, 24 

September 1971 


The flow rate V in the volute is assumed to be proportional to the 
wrap angle 0 (no back flow, zero cut water clearance flow). 

The volute cross sectional area at the wrap angle 8^ can then be 
calculated from the total flow at the volute throat V^. 


A 
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( 1 ) 


A 


Assuming constant moment of momentum: 


^1 C 1 ~ R m2 C 2 = 


where: 

^2 = R 6 + p 2 

Thus: 

° 2 = >2 = 

Substituting C ? in (1) 

0 2 V th R 6 + p 2 
M 2 ‘ 2n K 


np 2 


( 2 ) 


Solving for p the quadratic equation can be written as follows: 


P 2 - 


9 2 V th 

2n 2 K 


Let 


e 2 V th 
2n 2 K 


= Y 


6 2 V th 
2II 2 K 


r 6 « 0 


then: 

P 2 - YP - YR 6 = 0 

and 

Y + \[y 2 + 4 Y Rg 

p = 

2 


2 


Friction losses are calculated for the mean cross section of a volute 


increment: 


A. 


A 1 + A 2 


m 


0.5 


- t 

p m ^ 

Length of volute increment: 

L m = A6R m 

The friction coefficient is based on the relative surface finish and the 
empirical relationship established by Nicuradse (Reference 2). 

1 

X = (.8685 Jin (f 11 ) + 1 . 7 4 J 2 

' s 


Friction loss for volute increment 

L 


aH fric ' * 


m 


m 


2 ?™ 2 9 


The friction loss is recuperated by an increase in diffusion 


iH fric * iH vel 


which is achieved by a decrease in velocity or respectively, an increase in area. 


Reference 2 - Eckert/Schnell , Axial and Radial Kompressoren, Springer-Verlag 1961 
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AH 


vel 


_2_ _ _2c_ 
2 g 2 g 


where C 2c is the lowered velocity corresponding to the increased or corrected 
area A 2c . From continuity: 

C 2 A 2 = C 2c A 2 c 


AH 


fric 


C 2 C 2 

^ 0 - > 
2 g 4 


2 g 


(!-(/) ) 


2c 


From this expression the corrected area A 2c is: 

4 

A 2c = n 2 9 AH fric \ 0 * 5 
U “ ? ) 
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INDUCER AND IMPELLER PERFORMANCE PROGRAM 
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24 April 1972 


COMPUTER PROGRAM 

INDUCER AND IMPELLER PERFORMANCE PROGRAM 
I. INTRODUCTION 

A detailed loss analysis calculating incidence, friction, 
diffusion, discharge, blade clearance and labyrinth flow losses 
of inducers and impellers of arbitrary geometry is presented. Actual 
and ideal head coefficients, efficiency and power losses resulting from 
disk friction are printed out. 

11 • B ASIC CALCULATIONS 

A. Incidence Losse s 

It is assumed that a specified percentage of the velocity 

head based on the difference in tangential velocity component £Cu 

m 

is lost. 



A Cu = C (Cot 3* - Cot $. ) 
10 t D 


1 



If is the incidence loss factor based on the inlet mean diameter, 
the incidence loss is : 

2 

(C (Cot 3 j? - Cot 3 k ) ) 

i— k. 2 

^2 ~ 2 ^ 3.^ “ Cot 3^)3 

where: <f> = C m >. .. N 9 

— (mlet) 

Ki u 

llie value 2 used in this program is 0.15 (program constant). Program 

evaluations have indicated that the incidence loss so calculated is 

generally excessive, especially for radial impellers with diameter 

ratios, ^ ower than 0.55. It would be advisable to modify above 

expression to include consideration of the diameter ratio (e.g. (U, /U 0 ) 2 ). 

0 lm 2m 

B . Friction Loss es 

Friction losses are based on the mean relative velocity, 
the hydraulic diameter of the blade passage and the blade surface finish. 

If not input the friction coefficient for Reynolds numbers greater 
than 10^ is determined according to Reference 1: 


. X = (.8685 l n (d h /2 f s ) + 1.74) 2 

For laminar flow. Re < 10 5 , the friction coefficient is calculated 
according to the following expression derived by Blasius: 



Reference 1 - Eckert/Schnell, Axial and Radial Compressors, Springer 1961 
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C. Diffusion Loss 


The diffusion loss is related to the diffusion parameter Dj. 


= 1 


W 


W 


u2 


W 


ul 


lb 


2 c W. 


lb 


v/here : 

W 2 = relative velocity , discharge 

W,, = relative velocity, inlet blade passage 

lb 

W u 2 W ^ = tangential components of relative velocities 
a = solidity 


The diffusion loss coefficient is: 


A h,d - °- 08D i' 


D . Tip or Exit Losses 

This loss is very small and generally neglected.. 


4*2 2 

A ^£,t = * 5 ^BLK2 ^ 


<f >2 = discharge flow coefficient 

BLK2 = impeller discharge blade blockage 


E. Clearance Losses 

Blade tip clearance losses are related to blade loading^ tip 
clearance and fluid viscosity* The expressions listed in subroutine ILOSS 


3 


for estimating clearance losses yield reasonable values for swept back 
blading operating in water as liquid nitorgen# Loss coefficients for 


radial blading ( fly = 90°) in liquid hydrogen calculated by the same 
method were found to be excessive. 

F. Blade Losses 




The summation . of above losses constitute the blade losses. 
,b ■ A4, t,i + + + 4 **,t + A \,c 


G . Labyrinth Clearance Losses 

The labyrinth clearance flow is estimated using semi- 
empirical equations devised by G. Vermes _ Reference 2. The annular 
orifice flow coefficient is calculated from data presented in Reference 3. 
Data interpolation is performed by subroutine I NT 4 . 

H. Disc Friction Losses 

The disc friction losses are computed using friction coefficients 
based on Schultz & Grunow’s data published in Reference 4. Backvane 
power losses are estimated according to Reference 5. 


Reference 2 - Geza Vermes, A Fluid Mechanics Approach to the Labyrinth 
Seal Leakage Problem, Journal of Engineering for 
Power, April 1961 

Reference 3 - K. H. Bell & 0. P Bergelin, Flow Through Annular Orifices, 
TRANS. ASME, Vol. 7, 1957 

Reference 4 - A. J. Stepanoff, Centrifugal and Axial Flow Pumps, 

J. Wiley & Sons, 1957 

Reference 5 - K. T. Zanker, Experiments With Badvanes Used for Balancing 
Axial Thrust on Centrifugal Pump Impeller J The British 
Hydromechanics Research Association, RR 729, April 1962 

4 



I . Slip Factor 

The slip factor JLJ for the determination of the theoretical 
head is calculated according to Reference 6 as follows : 


y 


where : 


1 


1 



ZM 


s 


tp' = experience factor (see instructions) 

2 2 

M = static moment of impeller blade = 1/2 (R ? - R 1 ) for radial blades 
Z = number of impeller blades 


Reference 6: G. Pfleiderer, Die Kreiselpumpen , 5th Edition, Springer 

Verlag, 1961 
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X 1 1 . GENERAL INSTRUCTIONS 

A. A negative value in place of the blade tip clearance SCL will 
cause the program to calculate a tip clearance related to the discharge 
diameter of the impeller. 

The program flags FLAG and I FLAG select the configuration. 

FLAG 


Value (Real) 


Configuration 

Negative 


Unshrouded with backvanes 

Zero 


Unshrouded , smooth 

Positive 

I FLAG 

Shrouded, smooth 

Value ( Integer ) 


Configuration 

Zero 


Impeller (will calculate 



disc friction) 

Positive 


Inducer (Will not calculat 


disc friction) 

B. Values for Pfleiderer's experience factor FSLIP for slip 
depend on pump configuration and impeller blade discharge angley^,.. . 

If the impeller discharges into a vaned diffuser: 

An 

FSLIP = 0.6 (1 + y ~) 

oU 

If a volute housing is used only: 

A 9 

FSLIP = (0.65 to 0.85) (1 +'~) 

ou 

If a vaneless diffuser is used in conjunction with a collector: 

02 

FSLIP = (0.85 to 1.0) (1 + '—) 

61 ) 
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Cc The blade chord length CLBL must be determined from layout. 
The blade solidity is obtained by dividing the blade chord length by 
the mean blade spacing. 

D. For shrouded impellers, an initial or starting value for the 
labyrinth flow must be input. The correct value is calculated by 


iterations. 



SYMBOL 

NOMENCLATURE INPUT 

DESCRIPTION 

UNITS 

FORMAT 

BB2 

Discharge Blade Angle 

Deg 

F 

Z 

Blade Number 

— 

F 

SM 

Stat, Moment of Blade 

IN 2 

F 

4 

WIMP 

Impeller Flow Rate 

lb/sec 

F 

BBMI 

Inlet Mean Blade Angle 

Deg 

F 

BBTI 

Inlet Tip Blade Angle 

Deg 

F 

ETIP 

Total Pinbladed Tip Width, Shroud 
and Disc 

IN 

F 

AFLIM 

Inlet Mean Fluid Angle 

Deg 

F 

D2 

Discharge Diameter 

IN 

F 

B2 

Discharge Blade Width 

IN 

F 

LLBL 

Blade Chord Length 

IN 

F 

*SCL 

Blade Tip Clearance 

IN 

F 

BLKZ 

Discharge Blockage 

% 

F 

RH0 

Weight Density 

lb /sec 

F 

SOL 

Blade Solidity 

— 

F 

DTI 

Inlet Tip Diameter 

IN 

F 

DR 

Fadial Extension 

IN 

T» 

X* 

DHI 

Inlet Hub Diameter 

IN 

F 

XN 

Rotating Speed 

RPM 

F 

*FLAG 

Program Fiag^ See Instructions 

— 

F 

VIS 

Dynamic Viscosity 

lb sec/ft 2 

E 

* I FLAG 

Program Flag^ See Instructions 

— 

I 

ESHR 

Axial Length of Labyrinth 


F 

SFFS 

Surface Finish 

IN 

E 

D 

Labyrinth Diameter 

IN 

F 

CO 

Radial Clearance Labyrinth 

' IN 

F 

SNTH 

Number of Labyrinth Teeth 

— 

F 

PI 

Tooth Pitch 

IN 

F 

T 

Tooth Thickness 

IN 

F 

XKDF 

Disc Friction Factor 


E 

FSLIP 

Pfleiderers' Experience Factor for 

SLIP 

F 


*See general instructions. Page 6. 
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ORIFICE DATA 

lour cards must proceed regular input presented 































level ! o ( siipr &«? j 


3-/36 0 — FClU^AN-t! - 


-CATC — T\ ♦0 14/12^37.-23- 


5 I LER OPTIONS - NAME - MAIN. 0PT = 02.L!NFCNr=72, SOURCE;. EOCDIC. NCLIST. NCDECK. LCAD.MAP. NCCDI 1 


I SN 

C 0 02 


COMMON X 

I SN 

COCJ 


COMMON ftD2. 
1CU2TH.FSL I P 

2 DP .DH 1 , PH I 

3 OLPDf .KWW . i 

I SN 

0004 

— — — i 

t CUM A r ( 6F 1 o 

I SN 

ooos 


READ 15.1 ) XK 

I SN 

0006 

2 

CALL I N P l 

I SN 

ooc r 


on Tlj (3.4) 

l SN 

000b 

..... 3 

K 2 =02/2. 

I SN 

0 0 09 


R1 1=011/2. 

I SN 

00 1 0 


CCL=CLHL /2 

I SN 

CO 1 1 


U f . L K = 2 5 • 0 / C < 

I ss 

0012 

- — 

I LAO = 0 

I SN 

CO 1 J 


IF (FLAG )60. i 

I SN 

CO 1 4 

60 

PRINT = l. 

I SN 

0 0 13 


GO TO 10 

1 SN 

CO 1 6 

61 

PRINT = 0 

l SN 

00 17 

1 0 

CALL 1LUSS 

1 SN 

00 1 ti 


ps i i p = ps I rn- 

I SN 

00 19 


PS IPS = PS1 

I SN 

0020 

. 

DPI PS=P5 IPS 

i SN 

0 0 2 1 


TF((LAG) 35 

I SN 

0 0 22 

30 

OPF r = * l o4 3fc 

I SN 

C 02 3 


P = I)P IPS-OPFI 

I SN 

0 0 24 


CALL CL A 6 

I SN 

0025 


IF (PR 1 NT >55 

I SN 

0026 

55 

IF < A6SI WLAD. 

I SN 

0027 

103 

IF(WLAPA - i 

! SN 

0 0 ? a 

104 

wlaha = WLAl 

I SN 

0029 


CD TO 106 

1 SN 

0 0 3 0 

l 00 

WLAHA = wLAl 

1 SN 

003 1 

106 

1 L AH = 1 L AH 

1 Sn 

00 32 

— — 

1 h ( ILAfi- 1 2 ) 

1 SN 

OC 3 J 

102 

PH I NT * 3 . 

I SN 

00 J4 


WLAHA - WwR 

l SN 

00 35 


Gn rn to 

I Srvl 

0 0 36 

50 

IF ( ! F LAG ) 5 

1 SN 

003 7 

6 

DLPijF = 0 

1 SN 

00 36 


<t'AH = 0 

l SN 

0 0 2 ) 


G (i TO 6 

1 SN 

0040 

— 35 

WWW =0 • 

1 SN 

004 1 

5 

CALL OF HU V 

I SN 

CG'*2 

6 

PS I 1 N = P5, I TH 

I SN 

0 0 4 3 


CTA ! C = PS IIP, 

l SN 

0 0 4 4 

1 9 

F C’WVA T ( 5 X . * ‘ 

I SN 

0045 

7 

FUN MAT ( v>X , • 

I SN 

004 6 

l l 

fuuma r ( SX • * 

1 SN 

U04 7 

- - - 13 

forma r ( 5x • * 

I SN 

0046 

2 1 

FtIKMA r ( 5X * • 

!♦**«> 

l SN 

0049 

23 

FORMAT ( 5X . * 
1 SO I N* ) 

I SN 

0 05 0 

1 7 

F CM MAT ( t>X . • ( 

I SN 

OOS l 


WH I TL ( A, 1 9 ) 

1 S.4 

0032 


WR1 TF. ( 6 . 7 ) 1 

I SN 

C 05 3 

■ • — *■*■-*• - 

wR I It ( 6 . t 1 ) 

I SN 

0054 


WNt TE(6. 13) 

1 SN 

0055 


wRI T L ( 6 . 2 1 ) 

I SN 

0056 


WH I T L ( 6 , 2 3 J 

I SN 

005 / 

— 

wR I Tf ( 6 . 1 7 ) 

I SN 

0 05 6 


IF (FLAG) 4 5 

I SN 

00 59 

40 

CUNT I uUr. 

I SN 

0 06 0 

2 7 

F UK VAT ( /5X . 

I SN 

006 ! 

29 

FORM A T ( 5 X • * t 

I SN 

0062 

3 1 

F CRM A T ( 5 X , * i 

1 SN 

0 06 3 

33 

FORMAT ( 5 X , • 1 

I SN 

UOfc 4 

37 

FORMAT ( 5X , • 

I SN 

0 0 

- . 3 y 

FORMA J ( 3X . * 


. SOL . SF F S . AFL 1 M ♦ t T I F 

. rho. vi s. or i . 

arwK.T ,Mt£SS! .0 1 . U2.R2 
XKDF . WN C T . V/LAt*A . I LA 


^M-ZXr 1 *** • ) — 

I TH • . 19X .F l 0.4 . 2X. • * 

• * 22X ,F 1 0*4 . 2X . * * ** * 
bX.F 1 0. 4 . ?X* • *** * ) 

. PS I PS • ♦ 15X.F 1 0 .4 ,2 

3 IPS* . 1 ex.F 1 0.4 ,2X . • 

:»X » F 1 0. A.2X. * ***» ) 


WIDTH* r*.40X.Ft0.4,2X.*lN 


► 2X . * IN* > — 
>X* * IN* ) 

, 2X. * *#'* • ) 

» I N * > 








LlVEL- l» 


l sn 
; sn 
i sn 


t sn 
I Sn 
I sn 
1 SN 
I SN 
I SN 
I SN 
1 SN 
I SN 
I SN 
l SN 
l SN 
I SN 
ISN 
I SN 
I SN 
I SN 
i SN 
I SN 
i 5 n 
I SN 
I SN 
I SN 
• I SN 
I SN 
I SN 
t SN 
I SN 
I Sn 
! SN 
1 SN 
1 SN 
I SN 
l SN 
i s.m 
i SN- 
i sn 
I Sn 
l SN 
I SN 

I s\ 

ISN 


0002 

0003 

000 * 


( st'f*r 69 
COMPILE* 


OS/360 f CP T« AN H • 


GATE 7 l .0 l a/ t 2* 37.3* 


OPTIONS - NAMts MAlN,OPrs02,L IN£CNT= 72 . SOUR O: . EB C 0 I C . NCL I S T . NODE C* . L C AO , V AP , N C ED l T,NO IO.NCXREF 


ooos 
0006 
C O O 7 

0003 
C O 09 
0C 1 0 
OO 1 I 
00 12- 
0 0 13 
00 1 4 
00 1 5 

0 0 16- 
00 17 
00 1 8 
00 1 9 
0020 - 
002 1 
0022 
002 3 
0 0 2 A - 
0025 
0 02 6 
0027 
002ft- 

0 0 29 
0 f J 3 0 
00 31 
00 32 ■ 
00 3 3 
00 34 
00 JS 
0 0 3o ' 
0037 
0 0 38 
0 0 39 
0 0 4 0 
0 04 l 
0 0 4 2 

004 3 
0 0 4 4 
0 0 4 5 
00*6 



SUCH CD T I Nc It CSS 

r ♦ • y VON XM ft ) * XZ ( 8 ) « xFK{ ft ) * XR( 8 ) 

COMMON t*P2 • Z • SM • W I MP *0tiM l . BHT t * AD t . PHI2.CM2 • SOL .SFFS.AFLIM.LIIP. 
1CU2TH.FSLIP. SCL. PRINT .02.82. CLUL .S IG . 0LK 2 . RHC . V I S . DJ 1 * 

2 OR .OH i .PHHT.XN.FLAG»PtO.XNrH.PI .'IFLAG.CC r .MESS 1 •« I *U2.R2» 

3 OLPOF .PwftiESHR.OELK.PS IBL.PSI TH. SLPCF . XKDP « WNt*. T . WL AH A * I LAB 

CGUJ VALfcNCE (PSITH.PSIT ) . (PHI? .PHI ) . <U2.U> 

TRNSK=.S 
S I 6 = 1 . 2 

OOM 1 9-HeM 1 / b 7 . 296 v " 

UiU 1 Is-etjT 1 Z57.296 
OU2H=OB2/b 7 • 296 

A 1 = 0. 7853975 * (DT1**2 - 0M1**2) 

DM1 = SOft T ( 0 .5 * ( OH 1 **2 + 0T l ++2 ) > 

y» I MP = aNET * WLAUA 

0 I a‘« 1 MP*4 4 O . O/RHO 
U2-02*XN/229. 

- A? = 3.14 17 * D? +02 * { 1 •— 8LK2)- 

O? = .321 * CI/A2 

PH I 2 = CM2/U2 

CU2 r=u2-CM2/SlN( BC2 R > *CCS { 0 62R > 

~ IF (OH 2- 90.) 20*25.25 

20 PSISL = FSLIP * (1. ♦ BB2/60.) 

PSL=PSlSL*ft2**2/Z/SM 
SLPCFss 1 ./ ( 1 • + PSL ) 

- • * oo ro 2 o 

25 SLPCFsl .-1 . 98/Z 

26 CUJ I hjSlPCF * C U 2 E 
CM 1 ~ 0.32 1 * 0 1 /A l 

DTI = X N * O T l /2 29 . •; 

All = SORT (CM 1**2 + UT1**2> 

*U2 r M = U2 * ( l .-SLPCF* ( 1 .-PHI 2 AC 0 S( BD2P )/SlN(eUJ2R) ) > 

W 2 T Ms SOU T ( CM2**2+WU2 TH*<*2 ) 

ft vj = * 2 r h / w M - - - - 

U1M ~ XN * OM 1/229* 

1 F ( AFL 1 M ) 30.35.40 

30 AP'IMR = A6S(AFLtM)/57.296 

--- CO IV s-CMl * S I N ( AF 1 MR > /CCS< AF 1 MR )- 
nrnift = atamcmi/iuim - cuim>) 
off TU 4 2 

35 CDIM = 0 ’ 

- ■ bf M l ft = ATAN(CM 1/UlM ) - - 

GO TO 42 

40 Al-IMft a AFL l M/57 .296 

CU1M a CM 1 4 S l N< AF ! Mft) /CCS( AF 1 Mft ) 

tjF Ml ft «' AT AN ( CM 1/ ( U l M - CU 1 t* ) > 

42 pt-i 1 M 1 =: CM1/U1M 

P S I NC-0 . 154 (PHI Ml 4( COS ( 13FM IR)/SIN(BFMIR )-CaS(dOMlft )/S IN160MJ R ) >)* + 
12’ 

wli«l s U1M -CU1M ■ '*■ ‘ “ 

kvMt = SORT (CM1 442 + WUMl*«2> 

W MR = 0.5 « (WM1 + W2TH) 

PAS H ~ D2*S 1 N ( BU2ft ) * ( l • — &LK2 ) / Z * 3.1417 

OH YO * * PASw/lPASw + B2) — 

W£ I N'P = l)HYO +RHO*WMR / ( 96 • 522 * V I S ) 
l F ( Pt-i I M P- t . l£ + 0 5 ) 3 7.37.38 

3 7 FfM VP = 0. 0032+0 . 2 2 1 /Rif I Mp**0.23 7 

38 F ft I V P = 1 * / ( 0 • 86858 * ALOG ( OH YO / { 2 * * SFFS )) + l*74)4*2 

39 HLF IP*WMft ♦ *2/64 . 33 * < F R I MP + CLOL /OH YD ) 

PSF 1 P-32 • l 74 *HLF I P/U2»*2 
PSTlf>=lRNSK«'(PHl2 + t3LK2>‘i 1 *2- 

OIl : P » 1 . - W 2 Th / W M 1 f ( W U 2 T H— W(JM 1 )/( 2 • 

PSD a 0 . OtJ 4 D I F P ♦ 3 

PSHiL = PS INC + PSF1P + PSD + PST IP 

PSirH a CU2TH/U2 - U 1 M*cu l M/D2 + +2 

HTh-PSI rn*U?**2/32. 174 
If (FLAG ) 410.410.440 



PAGE 002 


1SN 0098 
ISN 0099 


1SN 0100 


ISN 0102 


IF ( SCL ) 

SCL = 0.01 

go ro a o 
if- < pi? i n r 
W R I T E l 6 . 
forma r (/ 
PSCL=0.— 
DELE =0 • 
OtLP-O . 
SCL-0 • 

GO ro A / 
CON l I SUE 
ULLP=SCL 
UDR = L}2/D 

-or = 02 / : 2 

CLPT =CLH: 
V I a 3 2 • 1 7 
A = 1 . 5 7 0 8 
USTP=1 . / 
Y=OELR*D 
IF ( Y-2. > 
F 1 = 1 .-( Y 
-GO TO -3 — 
F I =0. 
G-PH I *PS 
Df : L.E=DEL 
PSCL=32 . 
PSI HL=PS 
CONTI NUE 
F'UHMA T ( 5 
F OKMA r { / 

FOPS'. A r ( / 

124X , 7mU2 
F CKMA T ( 5 
1 24 X . 7nCU 

F UrIMAT ( 5 
l?4X,7hCM 
FfWMA f ( 5 
!?AX, 7HPH 

r okma r 1 1 > 

1/4X. 7MF P 
FORM A f ( 5 
1 24 X • 7HO I 

FIIKWA r ( b 

f c)«wa r ( r> 

F OK M A t { 9 
I F ( PR 1 N 1 
v. h i r u’ ( 6 * 
I TE < 6 • 

up i r f: ( & , 

- kk i tl: < 6 * 
WP i tf ( 6 ♦ 
w«i rE(6* 
WR l T£ ( G * 

"WP 1 1 fz ( 6 * 
WR I TE< 6 • 
WR I TE < 6. 
WPI Th(6, 

- RETURN 

END 


4 J 0 , A *0 ♦ 450 

0 20 1.+ 0. 000 8095 *02 + 0. 0001 1 0 78 * D2**I 

> 101 • 101 . 102 

420 ) 

5X** IMPELLER IS SHROUDED**/) 


L / l 2 ♦ 

44V1S/PH0- 

- eti 2 P 

2*S0RT ( V! *CL-Pr*COM A >*DELK/< PHI *LPJ 

T/ < 2 .*dstr ) 

1 * 2,2 

-.25* Y**2 ) **2 


1 T/ { S I G *COS ( A ) ) 

W*C**«b*<l* + <CaS(A>)**2/G + Fn*+l.S/( 

l 74 *DELe*HTH/U2 + *2 - 

I UL+PSCL 


X,* IMPELLER LOSSES**/ 
*SX ♦*♦*♦** OUTPUT -*+i 
5X* 7HSCL = .3X.F10.: 
= * 3 X , F 1 0 . 3 ) 

X • 7M13ELE «*3X.F10.3i 
2TH =*3XiF10.3) 
X*7t-iDELK -*3X,F10.3< 
2 = . 3X* F 1 0 . 3 ) 

X.7HDELP = • 3X * F 1 0 • 3 < 
12 = , 3X *F 10 . 3 > 

X.7HW2TH =*3X,F10.3. 
IMP = . 3X *F 1 0 .4 1 
X * 7HR W = * I X ♦ F'l Q • 3 i 

FP =. 3X*F 10 .3) 

X.7HHTH =*3X*F10.3, 
X.7HWIMP s=,3X*F10.3i 
JX.7HCM1 = , 3X*F 10 . I 

) 108*109.110- — 

S‘j > 

•3 7) 

12) SCL *PSINC*U2 
14) DELE * P SF IP* CU2 TH- 
IS) DELK.PSD.CM2 
18) 0ELP*PST IP,PHI2 
28 5 W2m,PSCL. FR IMP 

22 ) --PW.PS I 3L.01FP 

24) HTH.UIM 
27) WIMP* CU l M 
29 ) CM 1 


// ) 

* + **»✓/)-- 

3*24X , 7HFSI NC = 

♦24X.7HPSF = 

* 2 4 X » 7HP SD = 

•24X*7HPSTIP = 

* 24X • 7HPSCL = 
*24X*7HPSIOL = 

, 68X * 7HU l M = 

* 60X • 7HCU 1 M = 

3 ) 







I r »N 0 0 it 
ISN 0032 
ISN 0GJ3 
I SN 00J4 
ION 0 0 iO 
ION 0036 
I S i 0 0 3/ 
I Sm G03rt 
ISN OOJS) 
ISN 004 0 
I SN 0 04 t 
ISN 004? 
If.N 004 3 
ISN 0044 
I S 'J 0 0 4 S 
I SN 0 0 4 o 
ISN 0C4 7 
I S.s 004 8 
ISN C0 4«> 
ISN OUSO 
ISN 0 06 1 
ISN 0 052 
ISN 0 06 3 
ISN 0 0 ‘>4 
ISN 0 0 55 
ISN 0056 
ISN 0 0 5 7 


pr'Qvso* 

I f (FLAG > 31 .31 . 32 

31 PF F S = 0 * 

GO TO 36 

3 2 RwR = 0.5 * 0 

r t i = nr i /? • 

PFF5l-XP0F*(RWR**4M2.*RWR + 5.*ESHR)~2**RTl+*5) 

PFf S2-X80F*t l I 2*^t?2 + ii. J t t fcT IP) — 2.*RWR4*5) 

PF PS-PFFS l * PFFS2 
35 PF IX r = PFOV +PFFS+PFBS 

UlPUF = 17600. *PFT0T/<U2**2*WI VP) 

12 FOUFAT (*jH • Mr YNtj'LDS NO*. IMPELLER. R62*. 11X*E10*4«2X« # ***•)—■ 

13 F CRM A I ( ‘>X * * {) I SK FRICTION COEFF • * XM)F 1 » 1 2X • t 1 0 •* « 2X « • # ** * ) 

14 f L P f J A T ( 5 X « ■ POwL 3 . HACKVANES. PFHV* • 1GX.F 10.J.2X. 'HP* ) 

15 FORMAT (‘jX. * P 0 W l R « HACK. FACE. P F Fi S ** 1 6 X * F 1 0 •-'* 2 X •* HP * > 

16 FORMAT (5X.* PCJwER. FRONT FACE. PFFS , .l5X*Fl0*3.?X.*HP*) - 

17 FORMA M 6X. • POWtR./ TOTAL. PFTOT •. 1RX.F 1 0.3. 2> . 'HP • ) 

18 FORMAT <SX. 'LOSS COE FF. , DLPCF * . 2 0 X . F 1 0 . 4 . 2 X , • * * * • / / ) 

WRITE (6. 12) RE2 

WR I I L t 6 . 1 J > AX OF .... 

nH 1 TO ( 6 . 1 4 ) PF f J S/ 
wR I TO ( 6 . 1 5 ) PF tJS 
AR I TET ( 6 . I 6 ) PF FS 

- WRIT 0(6.1/) PFTOT--—' - ' 

WRtn:(6.1Q) OLPOF 
RETURN 

END 















LCVEL“!8 (' ScPf 6*3 >“ 


-QS/360- — f OR-TKAN -K- 


-CATE 71 .0 1 4/ 5-2*37*5 3- 


I SN 
I SN 
ISN 


t SN 
J SN 
I Sn 
i SN 
I SN 
I SN 
I SN 
I SN 
1 SN 
I SN 
I S.N 
I SN 
ISN. 
I SNf 
! SN 
1 SN 
l SN 
I SN 
l SN 
i SN 
I SN 
I SN 
I S.N 
l SN 
I SN 
I SN 
I SN 

I SN 
I Sn 
1 SN 
1 SN 

r sn 


COMPILE* OPTIONS - NAME* MAIN* OP T *02 * L I NECN T = 72 • SOURCE .EBCDIC* NCL 1ST* NCOECK »LC AD , MAP * NCED IT* NO 10* NCXMEF 
0002 SUHWOUT ! NE CLAfcj 

oooj ■ -• common — xk ( a ) . xzt a > . xfq< a > • xp( e > 

0 0 04 COW UN 002. Z.SM, W IMP.BRM1 . BFJ T 1 . AB 1 . PH I 2 • CM2 • SOL . SFF S * AFL 1 M • 6 T 1 P . 

1CU2TH.FSLIP. SCL, PRINT. 02. 62. CLBL *S IG.0LK2* PHO .VIS* DTI. 

2 OP. OH! . Ph I I T .XN.FLAG.P.O.X.NTH.Pl . IFlG.CO.W. T. ML SSI . Q1 .U2.R2. 

j 01.P0F, PWP.ESHP.DELK.PS I bL. PS 1 TH.SLPCF. - XKDF , WN6T ♦ WlABA . I LAB * — 

VUVIS*(32.16/KH0) 

C DLL = .6 7 

FA = 2. *PMO*32. I 74 1 *P* 144 • 

ftjsSOH r ( F A ) - • - — ^ 

S = J. 14 1 6*C0M D + CG ) / 1 44. 

CF=(XNTti-I.)*{ 1 .-'8*52/ t ( P I-t ) /CO + 7. 2 3 ) ) + 1 . 

DO 40 1=1*3 

W=COL*S*FH 

RL-CO*w/(6.*S*VI*RHU) 

/L A i ! — I /CO 

If- (PL-60* >200*200*300 — — — - 

200 KZ = 2I_AR/Pb 

CALL INT4 (XZ.XK.RZ.FK) 


0 0 os 
0006 
0007 
00 0 0 
0009 
00 1 0 
00 i t 
00 1 ? 
00 13 
00 1 4 
CO 1 S 
0 0 16 - 

00 17 

001 e 
00 10 
00 20 

002 1 
00 22 
0023 

OU24 

U02S 
0 02o 
002 7 
0026 
0029 
CO JO 
00 3 1 

00 32 
0033 
00 34 
0036 
0036 


300 


310 

320 

330 

340 


3S0 

40 


C OfiC - 1 ./SOP r (64 ./RE + 48. 7ZLA9/PE+FK ) 

GO 10 4 0 — 

PE=At.UG(Pc) 

CALL 1NT4 ( XM.XFU.RE.FFR) 

FFP-CXfM FFR ) 

PL -t- Xf-M PL ) : — — — — — 

C t )h O - . 6 2 ♦ P £ * * • 0 0 8 5 

IF (/LA 0-1 .13) 310,310*320 

F " 0 

GO ! O 3 30 - - — : 

F = 1 . -2.7 l 83* + <-.9S*{ ZLAtl-1 * 15) ) 

1 r (PF-oOOO . ) 34 0 . 34 0. 350 

COLL- 1 • /SOW U 1 /COEO+ + 2-F *(2*S0PT ( 1 /CCEO* *2-6 4 • /PE } - 2 • J+2.+FFW+ZLAD 
GO TO 40 

C Ut: C = l ./SORT ( 1 . /C0£0++2-( 2./CCEQ-2. ) *F + 2 * *FF P * ZL AB } 

COLT I NUC 

RETURN 

LNU 


— 6 


?'■ 

f 


V. o 


5: 

cl: 


Cjf 

si 



* UVU 1 8 < SUPT 69 ' ) 


05/360 FORTRAN F* 


CATE 7 1.0 1 A/2 2 .37.48 


tSN C 002 
1 SN 0003 
1SN 0004 


COvpJLEf? 


OPTIONS - NAMC= VA ZN.OPTs02%U lNFCNr=72»SUURC t .tnCOlC *NCL 1ST .NCDECK .L0AO*WAP* 
SUBROUTINE i NT4 ( X. Y, X I .VC ) 

DIMENSION X (9 ) . Y< 9 ) *XC < 4 ) . YC ( 4 ) 

LOUlVAUfcNCh (XC( I > .XI ) • ( XC ( 2 ) • X2 } « ( XC(3)*X3).<XC (4) * X4 ) * (YC( 1 ) • Y 1 >61205005 
l , ( YC (2 } . Y2 ) . { YC(3 ) . Y3> . ( YC (4 ) . YA } 6 1205007 

NAM 

t3 = XI 

IF ( X( J) >26.22.26 
GO TO(30,40).NA 

- • 1 F ( Y { J ) >26.23.26 

IK { J- 2)24 .24.25 

Yf:=0.0 

GO TO 50 

J = J-I 
XI =X{ J ) 

X2-X ( J- J ) 

Y l -s Y ( J ) 

Y 2 = Y ( J - 1 ) 

Y3=Y{J-2> 


1 5N 

I SN 

uu 

002 3 

30 

OU IU( J2,42>lN0 

IF ( X( J >-6)29 .37,37 


I SN 

0024 

37 

IF 

( J-2 >31.31.20 


I SN 

0 0 2 5 ; 

28 

NA 

= 2 


I SN 

002 7 


J 

GO 

TO 21 


I SN 

0028 
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J. J. Brunner 
4-12-72 

COMPUTER PROGRAM 

CIRCULAR CROSS SECTION VOLUTE DESIGN 

A 

I. INTRODUCTION 

This program presents an incremental method for the design of a classical 
pump volute with circular cross-sections which are tangent to the volute base 
circle. Volute area distributions as well as velocity and pressure distributions 
are calculated and printed out. 

This program was primarily devised to determine the percentage increase in 
cross-sectional area required for the compensation of friction losses in the 
NERVA turbopump volute which is discussed in Reference 1. 

II. BASIC EQUATIONS 



Reference 1 - Aerojet Nuclear Systems Company Engineering Operations Report 
N83Q0R:71-Q76, NERVA Turbopump Design Report, Volume 1, 24 
September 1971 



The flow rate V in the volute is assumed to be proportional to the 
wrap angle 8 (no back flow, zero cut water clearance flow). 

The volute cross sectional area A 2 at the wrap angle e 2 can then be 
calculated from the total flow at the volute throat V, 


th! 


A, 


0 2 

inr 


ith . _ , 

C 2 np 2 


0) 


Assuming constant moment of momentum: 


^il C 1 = R m2 C 2 = K 


where: 


%\2 = R 6 + p 2 


Thus: 


C. = JL 
2 ^2 


R 6 + p 2 

Substituting C 9 in (1) 

e 2 V th R 6 + p 2 
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2 2n 


= n P 2 


Solving for p the quadratic equation can be written as follows: 


P 2 - 


9 2 V th 

2n 2 « 


0 2 V th 
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R c = 0 


Let 


6 2 V th 
211 2 K. 
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then: 


and 


Yp - YR 6 = 0 


+ \!y 2 + 
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4YR £ 
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Friction losses are calculated for the mean cross section of a volute 
increment: 




fl l +A 2 


_ A IK 

p m ^ 


0.5 


Length of volute increment: 


L m = A9R m 


The friction coefficient is based on the relative surface finish and the 
empirical relationship established by Nicuradse (Reference 2). 

1 


A = 


(.8685 Hn (f 11 ) + 1.74j 2 
1 s 


Friction loss for volute increment 

L_ 


AH fric ' A 


m m 




2 g 


The friction loss is recuperated by an increase in diffusion 


AH fric AH vel 


which is achieved by a decrease in velocity or respectively, an increase in area. 


Reference 2 - Eckert/Schnell , Axial and Radial Kompressoren, Springer-Verlag 1961 
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where C 2 C is the lowered velocity corresponding to the increased or corrected 
area A 2c . From continuity: . 

C 2 A 2 = C 2c A 2c 


AH 


fric 
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l 2 
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A 2 

^c 
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) ) 


From this expression the corrected area A 2 C is: 
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2 9 AH fric 
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NOMECLATURE 


SYMBOL 

R6 

ALP6 
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// JQM T 


LOG DRIVE CART SPEC CART AVAIL _PHV DRIVE „ 

0000 0001 0001 * 0000 

V2 MO 5 ACTUAL 16K CONFIG 16K . . _ 

// FOR 

♦IOCSICARD.TYPEWR I TER ■ K E Y f j O A R D , J 4 0 3_P R I N T E R • D_I_S K ) 

♦LIST ALL 

01 MF. NS! ON THET.<90).RADN(90)*ANC<90>,VD(90).CN<90).A{90).RAD190). 

|C< f>0 > ,WVEL< 90 ) .FR IC( 90 ) •HFR(90 ) , PS ( 90 ) • HFR T < 90 ) 

L« * 2 
LW = 5 

1 FORMAT! • 1*1 1. 

2 FORMAT(A2X, ’VOLUTE VELOCITIES + PRESSURE DISTRIBUTION*//) 

3 FORMAT ( 7F8.3.EB.J. I 3.FB.3) 

A FORMAT ( 5 3 X , • *♦♦ INPUT ♦**•//) _ _ 

‘5 FORMAT ( 1 5X . * R6 • « 1 2X • * ALP6 * « 1 2X * • 00 * * 1 A X » •WHO* • 13X* 1 OMEG * ♦ 12X* *PSEX 
1 • / ) 

6 FORMAT! t5X»*DLl NE * * 1 OX* • SF S * * 1 3 X *^* NUM •« I 3X • • B5 ' / > 

7 FORMAT ! SX.6F 15.3// ) 

W FORMAT ( 5X.F 15.3.E 15. 3. I 15, F 1 5.3//) 

9 R l AO ( L W . 3 ) H 6 , AL P 6 , OD , RHO . O ME G . P S E X_. DL • JFS * NUM , B5 

IF ( R6) 500,500 ,11 

11 W R I T E t L W , l) 

WPITE(LW,2) 

WRITE (LW«4) 

WR I TE (L* ,5 ) 

WP t TE* ( L W , 7 ) R6 « ALP6 , OD, RHO , OMEG *PSEX 

^ W R t T E { L W , 6 ) 

WRITEILW.O) OL* SFS.NUM.D5 

. OTHT a 3 6 0, /NUM 

VDT - 0.321 ♦ QO 

ALPW6 = ALP 6/57 • ? 9 6 

C VOL = 360. ♦ COS< ALPR6 >/ ( D5 * SIN(_ALPR6M 

TMFT ( 1 ) = OTHT 

00 10 1-2, NUM 

i o the r c i > = the r { i- 1 ) + OTHT ^ _ 

00 20 1=1* NUM 

R AON ( 1 ) = THE T ( I ) / C VOL ♦ 5QRT!2.*R6 ♦ THE T < I ) /C VOL ) 

A N C { I ) = 3 * 1 A i 59 ♦ RADN!J_>**2 

VD ( I ) = THET C I >/3 60. + VDT ' ^ 

20 CNIII = VO! I >/ANC( I ) 

A ( 1 ) = ANC ( 1 ) ___ 

R AD ! 1 ) a R AON ( 1 

C ( 1 ) - CN! 1 > 

HVEL(l) 51 C< 1 ) **2/6 4.348 

FR IC t 1 )»0 
HFR ( 1 ) a 0 . 

1=2 _ 

50 N = 0 ’ ' V 

RXC =(RAO!I-l) + R6) * Ctl-1) 

CONST = VO! I )/( 3. 141 59 * RXCJ 

RAO! I ) * (CONST + SOR f ( CONST' **2 + 4* * CONST * R6>>/2. 

All) a 3.141 59 * RAD(t)**2 » 

STAY s A < I ) . 

17 C ( 1 ) = VD ( I ) / A ( I ) ‘ ■ 

RAO(I) = SORT ( A { I ) /3. I 4 1 59 ) 

AM = 0,5* (A( I ) + A ( I — 1 ) ) 

RAOM = SORT t AM/3. 14 159 ) 
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RM a R6 + R A f < M 

XL M = HM<on lT/57.296 

CM — C C { I ) « C ( I - 1 )' ) /2 • 

MI fM 1 ) - Ff<IC( I ) ♦XLM * CM * * 2 / ( 1 2 Q • 6 96*R A DM) 

HViTUl) 3 C ( l ) **2/6 A.. 34 6 • 

!r(N> .3 0.3 0.11 2 

3 0 U A IF El - HVl L ( ! ) 
j T AY ~ Alt) 

3b A(I) = STAY/SORT ( 1 HFR< I 1 /HVEL < l > 1 
N = ii ^ 1 

CO TO 17 

32 MiiHl) =■ (SAFE - HVEL (I) ♦ HFR(I>)/2* 

IE (N-l ) 35. 35 , 36 
36 IF ( I-fiUM) 40.42.42 
AO I = f ♦ 1 

Cl) TO 50 

42 CONTINUE 

i IF R T ( 1 1 = 0 

OO f»0 !=2.NUM 

6 0 F<FRI(!> - ilFRMf-l) + HFR< ! ) 

Dl ‘OIF ■- I »'> ♦ HVEL. (NUM)*RHU/ 144* 

MET a mFRMNuM) ♦ OMEG*HVEL ( NUM ) 

Af x = . 7nr.4DL**2 

VEX a VDT/AEX 

MVE X - VFX**?/64*34H 

PTE4 =P SJ: X ♦ HVl:X*WMO/ 1 4 4 • 

PTIN = PTl-X + HFT4RM0/J44. 

DO 70 1-1. NUM " 

70 P5<!) = p TIN -Oiv£L( ! 1 + HFRT ( I ) ) *RHO/ 1 44 • 

101 FORMA T (/✓/✓!> JA i • *** OUTPUT #«#'//) 

10 2 f ■ iR M A T ( 9 X , * T h f T A * . 1 0 X • • R NC • • l 1 X . • HC OR **• 10 X *'• VEL 4 Y 1 2 XY 4 F R 1C 4 YfOXY 
1 • Mf h r 4 , i 2x , » ps * // ) 

1 0 3 f-fjRMA T ( n 1 5.4 ) 

W-< 1 Tt (l.W . 1 0 1 ) 
w f? I r £T ( L W . ! 0 2 > 

W'illfKLW.tUJ) ( TUET ( I > ■ RADN < I ) »RA0( I ) , C ( 1 ) *FRIC( t ) # Hf RT ( I J . PS ( I) * I 


1 = 1 .NUM ) 

120 fuRMAT 1////20X, •FR1CT 1 ON LOSS VOLUTE u* .F8.3.2X, »FT 

1 • / ) 

121 FORMAT ( 20X, •FRICT ION LOSS INCL EXIT DIFFUSER = 4 * F H. 3 . 2 X . » F T » / > 

122 FORMAT { 20X , » EX I T VELOCITY =• .FF.3.2X. 'FT/S'/ 


1 ) 

123 FORMAT ( 2 0 x * • TOTAL DISCHARGE' PRESSURE" ” a • , F H • 3 * 2 X * * P S I 4 / ) 

124 FORMAT ( 20X * 'PRESSURE LOSS, EXIT DIFFUSER * • • F U . 3 * 2 X • ' PS I 4 / ) 

WR I TE (L W* l 20 ) HFRT(NUM) 

WR I TE <LW, I 21 ) HFT 
WR ! Tr (L*. 122 ) VEX 

WR I TE ( LW . 1 23 ) PTEX . , 

wRITE(LW.124> DPDI F “ - - - 

GO TO 0 
500 STOP 


END 

VARIABLE ALLOCATIONS 
THE T ( R ) =0002-0000 
R A D ( R l=04EA-0438 
HFR r ( R 1=0886-0834 
P S c X ( R )=0 bF2 
ALPR6IR >=03FF 
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C ( R 1 =0 5 6 2 - 04 E <f H VE L ( R ) = 0 6 l 6- 0 S 6 4 F R I cTr ~1 *6 6 C A - 6 61 8~ 

R6(R ) = 08E Q ALP6(R }=08EA Ot>(R )=08EC 

OL(R 1 = 0 ti F 4 SFS(R ) = 0 BF 6 __ Ob ( R >=0&F8 

C VOL ( R 1=0000 R X C ( R 1=0002 CONS MR 1=0904 


CN(R 1=0382-0200 A { R 1=0436-0384 
HF R ( R 1=07 7 E-0 6 C C ' P STR ^ * 6 83 2- 0780 
RHO(R )=08EE OMEG ( R )=08F0 “ 

D T H T ( R ) =08F A VDT { R )=08FC 
STAY ( R 1=0906 " AM<R* 1=0908 
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IMPELLER DISCHARGE TRAVERSE DATA EVALUATION 


J. J. Brunner 
4-10-72 


COMPUTER PROGRAM 

IMPELLER DISCHARGE TRAVERSE DATA EVALUATION 

I. INTRODUCTION * 

This program serves for the reduction of total pressure and flow direction 

data obtained from surveys conducted with traversing probes at the discharge of a 
pump impeller. It calculates local, integrated and mass weighted impeller head 
coefficients as well as efficiency and slip. - 

The program was first used as a supplement to the Pump Air Test Data 
Reduction Program (Reference 1) for the reduction of traverse data obtained from 
pump air tests conducted in support of the NERVA Turbopump Program. The pump 
air tests and the use of this computer program are discussed in Reference 1 and 2. 

II. PROGRAM DESCRIPTION 

The Impeller Discharge Traverse Data Evaluation Program consists of a 
short main program and a subroutine TRAVD. All major calculations are performed 
in subroutine TRAVD which in essence was written for incorporation into the Pump 
Air Test Data Reduction Program, Reference 1. 


Reference 1 - 0. J. Brunner, Pump Air Test Data Reduction Program, Aerojet Nuclear 
Systems Company, Engineering Operations Report 

Reference 2 - J. J. Brunner, Performance of a Two-Stage Centrifugal NERVA Pump 

Tested with Air as the Working Fluid, Aerojet Nuclear Systems Company, 
Engineering Operations Report N8300R : 71 -090 
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HI. ASSUMPTIONS AND BASIC EQUATIONS 

The Traverse Data Evaluation Program calculated impeller total head coeffi- 
cients directly from the measured total pressures. Exit or mixing losses at the 
impeller discharge and flow losses in the short radial annular diffuser section 
extending from the impeller discharge to the location of the probe are neglected. 
Previous loss calculations indicate that such losses are very small. The static 
pressure is assumed to be constant across the width of the port and equal to the 
averaqe value of the measured wall static pressures* 

The absolute velocity at each traverse position is obtained from: 


C (b) - /2 g (H t _ - HJ 


(b) 


and the meridional velocity based on measured flow angle v. 


C m(b) - C (b) s1n “(b) 


Integrated and mass weighted values are determined as follows 
Integrated meridional velocity: 

B 

o • C db 
7T _ - nub) 


m 


B 


wherein B = housing port width. 


2 



Tangential velocity component at each traverse position: 


C u(b) = C (b) cos “(b) 


Mass weighted tangential velocity component: 


( C u(b) SqMI db 


rn 


Integrated flow angle: 


a = tan 


-1 


r b 

m 


fi 

o' C../u \ db 


'u(b) 


Mass weighted total head: 


(H t(b) C m(b)) db 


m 


A continuity check is performed by comparing the integrated flow 


V = C A 
m 


(A = 2n r m b) 


with the measured flow (corrected for recirculation when applicable). 


3 



Th e ab solute velocity components are adjusted in subsequent computations 
to satisfy continuity. In these calculations the meridional velocities 
are multiplied by the ratio of measured flow to calculated flow V/V, assuming 
that the distribution of these velocities is correct and that the discrepancy 
in flow is due to the measured fluid angle. From adjusted velocity triangles 


determined by and new values of fluid angle and tangential 

velocity C u ^ are calculated. The mass weighted total head is not affected 

by this adjustment because the ratio of the local value of C /u x to the inte- 

m(b) 

grated value C" m remains the same. 

Impeller efficiency and slip coefficient deduced from measurements are 
based on the mass weighted, adjusted tangential velocity component C u . 

Ideal Head Coefficient ip. 

"2 - 
— — C 
. Rm L U 


Impeller efficiency n 


4 


Slip coefficient y 

V 


where : 

C rn 2 = meridional velocity from one-dimensional analysis. 

Nomenclature, input format, listing and sample printout are presented 
on the following pages. 


'2 - 
— C 

1 u 


m 


tan 3 
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■ NOMENCLATURE 


SYMBOL 

DESCRIPTION 

UNITS 

FORMAT 


MAIN PROGRAM CONSTANTS 



AI21 

1st Impeller Discharge Area, Blocked 

Sq In 


AI22 

2nd Impeller Discharge Area, Blocked 

Sq In 

A 

DI21 

1st Impeller Discharge Diameter 

In 


DI22 

2nd Impeller Discharge Diameter 

In 


BET21 

1st Impeller Discharge Blade Angle 

Deg 


BET22 

2nd Impeller Discharge Blade Angle 

Deg 


Z21 

1st Impeller Blade Number 



111 

2nd Impeller Blade Number 



FSLIP 

Empirical Factor, Pfleiderer Slip = .65 



SMI 

1st Impeller Blade Static Moment 

Sq In 


SM2 

2nd Impeller Blade Static Moment 

Sq In 


INPUT 




TRAVERSE 

EXCURSION CONSTANTS 



NTRA 

Number of Surveys 


12 

POPS(J) 

Ambient Pressure 

psia 

F 

r*M/ i 
O ! 'i \ * J J 

Rotational Speed 

rpm 

c 

i 

RVBL(.J) 

Percent Balancer Flow Simulated 

% 

F 

VW(J) 

Net Weight Flow 

Ib/s 

F 

RHOIl(J) 

Fluid Density, 1st Stage 

lb/ ft 3 

F 

RHO I 2 ( J ) 

Fluid Density, 2nd Stage 

lb/ft 3 

F 

RECIl(J) 

Percent Recirculation, 1st Impeller 

% 

F 

RECI2(J) 

Percent Recirculation, 2nd Impeller 

% 

F 

PHII(J) 

Discharge Flow Coefficient, 1st Impeller 


F 

PH 12 (J ) 

Discharge Flow Ceofficient, 2nd Impeller 


F 

TOABS(J) 

Ambient Temperature 

Deg F 

F 

TI(J) 

Temperature Interstage 

Deg F 

F 

PTI(J) 

Total Pressure Interstage 

Deg F 

F 

QDN(J) 

Flow Speed Ratio 

gpm/rpm 

F 
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NOMENCLATURE (Cont'd) 


SYMBOL 

DESCRIPTION 

UNITS 

FORMAT 

J 

Survey Number 


13 

R4 

Radius of Traverse Location 

In 

F 

CAPB4 

Port Width Wall to Wall 

In 

F 

NST 

Stage Number 


13 

NIP 

Number of Traverse Points 
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TRAVERSE 

VARIABLES 



B4 ( I ) 

Distance 

In 

F 

PT 4(1) 

Total Pressure 

In H 2 0 

F 

PS4(I) 

Static Pressure 

In H 2 0 

F 

ALP4(I) 

Flow Angle 

Deg 
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o * i f , 1 17 psl = pr,i r .L*<nr.v?*>**2/z/r»M - 

UUelUi SLPP s l./U.*PSL> 

0U0119 PS TUP = SI. PI 1 * PSTEU 

000120 C-PARAMCTERS BASED ON MEASURED VALUES 

uOU 1 2 1 " ■' DO 110 IrlrNTP 

0UU122 04(1) = B4<I)/CAPn4 

00U123 PT4 ( I ) = PT4 (I ) /27 *67 + P0PS<J>_„ ...... _ 

000124 PS4<lf V PS4(I>/27.67 + POPS(J) 

000125 IF(NST-l) 90 1 96 1 07 

000126 96 HT4(I J=lO6.7f»fl*T0ArtS(J)*( (PT4 ( I ) /POPS( J) )**{U283_-_ 1* l 

000127 HS4(l) = ia6.76a*TOAliS(J)*((PS4(I)/POPS(J>)^*.203 - i*> 

000120 GO TO 90 

000129 97 UT4 ( I ) = 106.760>(TnJ) + 459.67)*((PT4(T)/Pri(J) ) * + 0 . £83-1 • )_ 

000130 HS4(I > = 186.760+ ( T I ( J) +459. 67 ) * ( < PS4 < I) /P T I ( U> ) **0 . 283-1 • ) 

0UU131 90 HTN4(I) = HI 4 ( I ) /SN < J ) **2 

000132 MSIJ4 ( I ) = HS4<I)/SN(J)«*2 _ * - 

000133“ HTC4(1) = HT4(I)/US0G 

0 00 1 34 HSC41I) r HS4 ( I ) /USQ6 

000135 UV4 ( I ) = HT4 ( I ) - HS4 < I) 

UOU 1 36 C4 ( I ) = 0.0217 + SCRT(HV4(I)> 

000137 CM4U) = C4 { I ) * SlM(ABS(ALP4(I)/57.296) ) 

Uuul30 JF(ALP4< t ) ) 95 r 100.100 / 

000139 95 CM4(I) = -CM4 ( I ) 

000140 100 PHI 4(1) = CK4(I)/U2 

000141 HO CIJ4 ( I ) - C4 ( 1 ) * COS ( AB5 ( ALP4 ( I ) /57 • 296) )_. , 

000142 ’ WlUrt(LWflO) 

000143 WRITE(Lwft) 

QUO 144 WRITfl(LW»3) NST r QDN ( J) » SN ( J) t RVDL ( J> 

000145 ' Will TE ( LW » 5) 

000146 WR I TF ( LW t 7 ) 

00014 7 WRITE (LW* 9) _ 

000146 VJRlTF(LWt ll)’ _ CB4(I)fHt4"(iy.7HS4U)#HTN4CI) tHSN4(I)fMTC4(I)»HSC4CD» 

000149 1 1 - 1 # r HP ) 

000150 WRITE (LW* 13) __ _ _ „ 

000151 WRIT E (LW r 15 ) 

000152 WRITE (LW» 17) <B4(I) fC4(X) #ALP4(I) »CM4tI) *CU4(!) rPHI4(I) fT=l#NTP3 

uoo 1 53 C-TR AVERSE INCREME NTS 

OUU 154” LIM - NTP-l 


000 1 56 
000156 
000157 
000153 
Q 0 0 1 59 
0 Oo 1 60 ' 
U00161 
000162 
0 0 U 1 63 
000164 
000165 
000166' 
000167 
000168 
00 U 1 69 
000170 
000171 
000172’ 
000173 
OUU 1 74 
000175” 
000176 


DU(l) = 0.5 * (D4(2) + B4 ( 1 ) ) 

DBUITP) = 1. + Rf i ( y T?, l 

DO lo2 I=2iLIM 

102 Df3 ( I ) = { IJ4 ( 1 + 1 ) - B4(I~i))*0.5 

SUM = 0 

DO 104 IsITMtP" 

104 SUM = SUM +-00(1) 

C-INTEGRATFO VALUES , 

" SCM4U = "0 

SCU4B = 0 

SCUV4 = 0 

SHT4I3 " = ' O' - ' 

DO 106 I-lrNTP 

CM4U ( I ) = CM4 ( I ) + On(I) __ 

SCM4B '= SCM4B + CM4P ( I ) 

CU41KI) =CU4(I> * 0(3(1) 

SCU4B = SCU4U + CU4B(I) 

SCUV4 = SCUV4~+”CM4lVU) * CU47T) 

HT4CB ( I ) = HT4 ( I ) * CM4BII) 

106 SHT4B = SHT4B + HT4CB_<n 

HT4I ” = SHT4B/SCM4B 
HT4IN = HT4I/SN ( J) **2 









i 


_ Ooo! 77 
UUU 1 7l\ 

0 c 0 179 
000130 
‘ OUuldl ’ 
000152 
000 l 03 
’ 000144 " 

oooins 

0 0 U 1 0 6 
0UU137 
0 0 U 1 f J 3 
00 01 89 
0U0190 " 
000191 
000192 
000193 
OUu 1 94 
000195 
0 u 0 1 9 u 
000197 
000193 
000199 
000200 
000201 
0 0 0 2 o 2 
00 020 3 
000204 
0 L u <t 9 b 
UU0206 
00o207 
oou20u 

000209 
000210 
000211 ' 
000212 
000213 
C0u214 ~ 
0OU215 
00 02 I 6 
000217 
000216 
000219 
000220 ' 
00U221 
0 0 u 2 2 2 
000223“ 
000224 
000225 _ 
"0UU226 
000227 
000228 
000229 ' 
000230 
000231 _ 
'000232 
000233 


1 1 T 4 1 C = HT4I/U509 

' CU4 2 = 5CUV4/5CM4R 
AI.P41 = ATAN ( SC.M4U/SCU4B) *57*296 
VI 4 - 0.043634 4 R4 _ * CAPB4_ ♦ 5CM4B 
ERR = (VI4-V4J/V4 * 100, ' ‘ ■ 

FLADJ = V4/VI4 
WRITE<LW#19> 


ALP4I#VT4#V4#ERR 


WR ITE (Lw# 21 ) 

WRITE (LW# 23) 

WRIT E (LW t 2b) HT4I #HT4IN#MT4IC # SCM4B# 

(^-ADJUSTED VALUES 

DO 114 IslfNTP 

CM4A ( T ) = FLADJ * CM4<I>_ _ _ 

PHI 4 A ( I ) - CM4A(I)/U2 

ALP4AU) = ASIN(AnS(CM4A(I)/C4(X))) *57,296 
_ IF (CM4A ( I ) ) 1 12 » 1 14 # 1 14 

’ 112 ALP4A(I) = -ALP4 A ( I ) 

114 CU4 A ( I ) = C 4 ( I ) * C0S<ABS(ALP4A(I)/57.296) ) 

WRI TE (LW# 2 7) 

; WK 1 I i_ ( LW r 29 ) 

• WRITF(LW#31) 

WRITE (LW# 33) (D4(I ) #CM4A t T ) # ALP4A ( I ) #CU4A t I ) # PHI4A ( I ) # 1 = 1 #NTP> 
C-ADJUSTED VALUES INTEGRATED' 

SCMAB = FLADJ * SCM4B 
SCU4A = 0 

CU v (+ A = o 

DO 116 I=1»NTP 


SCU4A 
CM 4 DA = CM4U { I ) 
1 1 6 CUV 4 A = CUV4A + 
CU4AI 
ALP I A 


ETAIA 

ETAIS 

ETAir 


SCU4A + CIJ4ACX) * OBCI) 

+ FLADJ" 

CM4HA * CU4(I> 

CU4AI = CUV4A/SCMAB 

= A T AM ( 5CMAtl/SC'U4 A ) * 57* 296 
CM2 = V I2./AI2 * 144, 

CU2 = 2. * R4/DI2 * CU4AI 
= HT 41 C/PSTHA 
= HT4IC/PSTH5 
= HT4I C/PSTMP 
■PSTHM = CU2/U2 
ETAIM = HT4IC/PSTHM 
CU2L = U2 - CM2/TGI32 

"SLIPM= CU2/CU2E " 

WRITE (LW# 41 ) 

WRITE (LW#43) _ 

WR I TE ( LW #45) ' 

WR I I E ( I-W # 4 7 ) SCM AD # ALPI A # SCU4A # CU4AI # CIJ2 

WRITE (LW # 35) 

WKI fE (LW # 75) 

WRITE (LW t 77 ) 

WRITE (LW » 79) PHID_#PSIEyf^THA#J 3 STHS»PSTHP#PSTHM 

' WRITE<LW#81) 

WRITf(LW#fi3) 5LPA # SLPS # SLPP # SLIPM 

WR I TE < L W # 6 5 ) _ET A I A r ETAIS rjETA I Pj ETAIM ~ 

WRIT E (LW » 37) 

WRITE(LW#89) 

WR I TE ( LWf.9 1 ) U2 #CM2 

RETURN 

END 
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CM 4 

ALPHA 4 

CU 4 

FLOW COE! 

pFi/CAor:4 

FT/S 

C/EO 

FT/S 

CM4/U2 

.9794 

00.13 

6.96 

214,06 

*0709 

« i 5 C 7 

ON. 90 

0.03 

212.57 

*9095 

. 3 : 

30.07 

0.9? 

200,19 
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N8300R : 72- 1 06 
May 1972 


PUMP AIR TEST DATA REDUCTION 


J. J. Brunner 
7 April 1972 


COMPUTER PROGRAM 
PUMP AIR TEST DATA REDUCTION 


I . INTRODUCTION 

This program computes overall as well as component performance 
parameters of a two-stage centrifugal flow pump from measured data including 
pressures, temperatures, torque and shaft speed. Calculations of isentropic 
head and air density account for changes in relative humidity. 

The program was written. for the reduction of test data obtained from 
pump air tests conducted in support of the NERVA Turbopump Program. The 
pump air test results are discussed in Reference 1. 

II. BASIC EQUATIONS 
Pressure Conversion 

The following conversion factors are used in the program: 

1 PSI = 2.036 in. Hg 

- 1 PSI = 27.67 in. H 2 0 


Reference 1 - J. J. Brunner, Performance of a Two-Stage Centrifugal NERVA 
Pump Tested with Air as the Working. Fluid, Engineering 
Operations Report N3300R:71-090, 12-9-71 


2 . 


Air Properties 


Measured are barometric pressure B in in. Hg and wet and dry bulb 
temperature t and t^ from psychroineter. The vapor pressure P w in in. Hg 
corresponding to the wet bulb temperature t w is obtained from the steam tables. 
The actual vapor pressure P y in in. Hg is calculated from the empirical 
equation presented in Reference 2: 


= P 


B (t r 




w 


2700 


The relative humidity r^ is the ratio of the actual vapor pressure to 
the pressure of saturated vapor at the prevailing dry- bulb temperature: 



Neglecting the inert gases, the part pressures of the oxygen-nitrogen-water 
vapor mixture are calculated according to Dalton's Law. 


Reference 2 - L. S. Marks, Mechanical Engineers' Handbook, Fifth Edition, 
McGraw-Hill Book Co., 1951 
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The pressure of dry air p a is: 

P a e B - P y (in. Hg) 
and that of its constituents: 

... . ... p 0 2 - - 21 h 

. . p « 2 ■ - 79 Pa 

The density p of each constituent is obtained from: 

_ M P 
p 1546 T 

M = molecular weight 

P = pressure in 1 b/f t 3 

T » absolute temperature °R, (dry bulb) 

The specific heats of the mixture are obtained by weighting the specific 
heat of each constituent as follows: 

c - ... P °2 CP °2 + Pfl 2 C P « 2 + PV C P V 

P , Z p Ep _E_p. 

The specific heat C y is calculated analogously. Values of specific heats 
for each constituent used in the program are summarized below. 
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pans ion factor Y a from Reference 3. 


The compressibility effect is considered with adiabatic ex- 

J/2 


(y) /] _ f 

Y Y \ / f P 


V y . 


(y Tj) ( - 1 - r. 


1 - 0 ‘ 


1 - 8 4 r D Y 


where: . _. .......... ... ....... ...... ^ 

fp - pressure ratio across nozzle: p noz / p -j-j ne 

Y ** ratio of specific heats C p /Cy 

3 = ratio of throat to pipe diameter 


4. Volumetric Flow Rate V, 


v f = K m 


1/2 


1/2 


r>,~. 

“3 


144 AP 
2 07 


-) 


0.127 K A. (— ) 
2 0 


(ft/sec) 


where: 


& “ P pipe ' throat’ 1n H 2° 
p = Fluid density, lb/ ft 3 


Reference 3 - ASME, Fluid Meters, Fifth Edition, ASME, New York, 1959 
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5 . Isentropic Head 


H is = 778.2 C p 




(ft) 


In this calculation of the overall and stage total head rise, the velocity head 



is added to obtain the correct total head. 


6 . 


Pump Efficiency 

Efficiency based on measured temoerature rise At 

* . ' ... - - act 


n 4 


At is 


At 


act 


where: 



Efficiency based on measured shaft torque x (in lb) 

12 " iH is 


W = net flow rate, Ib/sec 

to = angular velocity= ~ N, rad/sec 
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7. 


Labyrinth Floy/ Rate, Impeller Shroud 

The recirculating impeller front shroud labyrinth flow rate is estimated 
to determine the impeller discharge flow coefficient. Mean labyrinth through* 
flow area A- jb and orifice coefficient are input. The pressure gradient 

along the shroud is neglected. . 

2g (144) AP lb l 1/2 - 

P 


w 


lb 


= C 


lb 

lb 144 P 


- 0.66847 C )b ft lb (p AP lb ) 1/2 

where: 


AP lb = P ressure dro P in lb/sq.in. across labyrinth 
C-,^ = labyrinth flow coefficient = 0.5 


8 . 


Impeller Discharge Flow Coefficient 


*2 


144 


W + W lb 

p a 2 u 2 


A 2 = impeller discharge area blocked, sq. in. 
U 2 = D 2 N/229, ft/s 


For the second stage the recirculating balancer flow (when simulated) must 
be added to the net flow. 
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9 . 


Stage Head Coefficient 




g a H is 


U 2 


1 0 . Impeller Discharge Total Head Coefficient (one-dimensional) 

This coefficient is based on an average static pressure determined from 
several wall static pressures measured around the impeller periphery between 
diffuser inlet and impeller discharge at radius R^. Two methods were considered 

for estimating the impeller total head; - ■ • ; '* ' 

Method I (based on assumed impeller efficiency) 

The static head coefficient is expressed as the difference of the total 
head coefficient and the velocity head in coefficient form: 


2 

static head coefficient 
total head coefficient 
ideal head coefficient 
discharge flow coefficient 


% = 
*t = 
*1 = 
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Since the static head is based on measurements outside the impeller 
discharge the absolute velocity is reduced by the ratio of the impeller 
discharge radius to the radius of the pressure tap . The velocity ' 
head therefore is multiplied by the radius ratio squared. Substituting the 
ratio of total head coefficient to impeller efficiency in place of the ideal 
head coefficient: 

h - \ - 


Solving for ^ the quadratic equation can be written as: 




Method II (based on calculated slip) 


In this method the impeller total head coefficient is calculated directly 


from 


R 2, Z 


4> t = + (jr) 

t s k m 


<t> 2 + 
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with a theoretical head coefficient if>. based on Stodola's slip correction, 
defined as: 

JI sin Bo 

m. = 1 - — ~ — - 1 

H tan 3 2 Z 

where: • . 

\ 

3 2 ~ discharge blade angle 
Z = number of blades 

Values calculated by both methods showed excellent agreement for data points near f 
design. For off-design points however, the slip estimate was considered more 
accurate and consistent than the estimate of impeller efficiency. Method II was 
therefore selected for incorporation into the program. 

1 1 . Housing Losses 

Crossover and diffusion housing losses are expressed in head coefficient 
form as: 

Alfj £(Housing) ~ ^t( Impeller ” ^t(Stage) 

To determine diffuser and volute losses individually, the total head at the 
diffuser discharge is estimated from a measured average wall static pressure and 
a calculated velocity head. Using Pfleiderer's criterion for slip (Reference 4) 
to account for- flow deviation the fluid angle at the diffuser discharge is expressed 
as follows: 


Reference 4 - C. Pfleiderer, Die Kreiselpumpen, Fifth Edition, Springer-Verlag, 1961 


Page 10 


with 


'5 + P 


R 2 C u2 


Ctg 


a r7X 


5 m5 


1 + P, 


diffuser vane discharge angle 


impeller discharge radius 


diffuser discharge radius 


'u2 


tangential velocity component, impeller 
discharge 


■'m2 


meriodinal velocity component, diffuser 
discharge 


where : 


r „ 


z s 


diffuser vane numbers 


static moment of vane in meriodinal plane 
2 ^ R 5 2 " R 4 2 ) 


V 1 


empirical factor = 0.75 (1 + ^ ) 


The total head at the diffuser discharge then is: 


H t ■ H s + 


( 


C . \ 2 
mo \ 


Sin =*r 


2 g 


and ^ = 


u 2 /g 
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Diffuser head loss coefficient: 

( 

^(Diffuser) ~ ^t(Impeller) “ ^t(Diffuser) 

Volute head loss coefficient: . 

^£(Volute) ~ ^t(Diffuser) ~ ^t (Stage) 

Radial Thrust 

Radial thrust is determined from the wall static pressures measured around 
the impeller periphery. Each measured pressure multiplied by its effective area 
(circumferential increment x effective width) results in a force vector F shown 
in Figure below. The force components of F are: 


Fy = F sin 0 
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The radial force F then is'the resultant of the algebraic sums of the 

force components F v and F . ■ • - 

y x 


F — y^~E FT + E F 

y x 


The direction of the resultant force is determined by the angle 


e = tan' 1 

0 is measured from the pressure tap nearest to the volute tongue in direc- 
tion of impeller rotation. 

The radial thrust parameter used in the data presentation is defined as the 
ratio of the resultant radial force F (lb) to the average static pressure rise 
(Ib/sq in) measured from the pump inlet to the second stage impeller periphery. 


E F. 


R 


P 2 m " P amb 
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AIR TEST DATA REDUCTION PROGRAM 


NOMENCLATURE 
INPUT DATA 


SYMBOL 

DESCRIPTION 

CONSTANTS 

UNITS 

FORMAT 

IM 

Month 


12 

ID 

Day 


12 

IY 

Year 


12 

NOT 

Test No. 


13 

NODAT 

Number of Data Points 


13 

NOP 12 

No. of Circumferential Pressures 
Imp, 2nd Stage 


15 

NODF 

No. of Circumferential Pressure 
Diff. Disch. 


15 

CNOZ 

Coeff. Disch. Flow Nozzle 


F 

ANOZ 

Nozzle Area 

Sq In 

F 

ADL 

Area Disch. Line 

Sq In 

F 

COR IF 

Coeff, Bleed Orifice 


F 

ABL 

Area Bleed Orifice 

IMPELLER 1ST STAGE 

Sq In 

F 

AI21 

Area Imp. Disch. Blocked 

Sq In 

F 

DI21 

Diameter, Imp. Disch. 

In. 

F 

CLAB1 

Labyrinth Orifice Coeff. 


F 

Z21 

Number of Blades 


F 

BET 21 

Blade Disch. Angle 

Deg. 

F 

ALB1 

Flow Area, Labyrinth 

IMPELLER 2ND STAGE 

Sq in 

F 

A 1 22 

Area Imp. Disch. Blocked 

Sq In 

F 

DI22 

Diameter, Imp. Discharge 

In 

F 

CLAC2 

Labyrinth Orifice Coeff. 


F 

111 

Number of Blades 


F 

BET22 

Disch. Blade Angle 

Deg 

F 

ALB 2 

Flow Area, Labyrinth 

Sq In 

F 
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AIR TEST DATA REDUCTION PROGRAM 
NOMENCLATURE 
INPUT DATA 


SYMBOL 

DESCRIPTION 

UNITS 

FORMAT 


HOUSING 



ACRGI 

Area Crossover Channel 

Sq In 

F 

ACR02 

Area Crossover Channel 

Sq In 

F 

ACR03 

Area Crossover Channel 

Sq In 

F 

ACR04 

Area Crossover Channel 

Sq In 

F 

ADFD 

Tang. Area Diff. Discharge 

Sq In 

F 

BDFD 

Diff. Disch. Fluid Angle 

Deg 

F 


MEASURED DATA 



POHG 

Pressure, Ambient 

In Hg 

F 

TO 

Temperature, Ambient 

Def F 

F 

PSD 

Static Pressure, Discharge 

In H 2 0 

F 

TD 

Temperature, Discharge 

Deg F 

F 

DPORI 

Pressure Drop, Bleed Orifice 

in H 2 0 

F 

TI 

Temperature, Total, Interstage 

Deg F 

F 

PTI 

Total Pressure, Interstage, RMR Dia. 

In H 2 0 

F 

PSI 

Static Pressure, Interstage 

In H 2 0 

F 

SN 

Rotational Speed 

RPM 

F 

TQS 

Shaft Torque, Measured 

In Lb. 

F 

PSIM1 

Mean Static Pressure, Imp Disch, 

In H o 0 

F 


1st Stg. 

2 


PSIN 

Mean Static Pressure, Inducer 

In H 2 0 

F 

PCROl 

Stat Pressure, Crossover Channel 

In H 2 0 

F 

PCR02 

Stat Pressure, Crossover Channel 

In FLO 

F 

PCR03 

Stat Pressure, Crossover Channel 

C 

In H 2 0 

F 

PCR04 

Stat Pressure, Crossover Channel 

In H 2 0 

F 

DPN 

Pressure Drop, Nozzle Disch. Line 

In H 2 0 

F 
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SYMBOL 


PSI2(1) 


PSDF(l) 


AIR TEST DATA REDUCTION PROGRAM 
NOMENCLATURE • 

INPUT DATA 


DES CRIPTION UNITS FORMAT ' 

IMPELLER SECOND STAGE 
CIRCUMFERENTIAL STATIC PRESSURES 

(18) Static Pressure, Imp. Discharge In 1^0 F 


DIFFUSER DISCHARGE CIRCUMFERENTIAL 
STATIC PRESSURE 


(9) Static Pressure, Diff. Discharge IN H£0 F 
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ij EL T MAIM# 1 # 7204 05# 4994 0 


f: 


OOuOOl 
000002 
O0UOO3 
* OU 0004 " 
OUOOGS 
000006 
0 0 U 0 0 7 ' 
000000 
000009 
000010 
ouoon 

U0U012 
000013 
000014 
CGUfUS _ 
000016 
0 U C 0 1 7 

oooo la 

G 0 0 U 1 ( J 

00 uO:;l 
0001.22 
0 0 0 U 3 

oooor.o 

GOG 026 " 
0 0 o 0 ?. o 
0 0 G 0 2 7 
0 o 0 0 2 6 
000029 
000030 ’ 
0000 31 
000032 
GGGC33 
0 0 0034 
000.033 



'DIMENSION PONCHO) .TO (30) # PSD (30) #TD(3r.) #MPORT ( 30 ) #TI (30) # PIT (30) # 
1PSI (30) # SN ( 30 ) #TOS(30) # PSIN(30) tPCROl (30) *PCR02(30) #PCR03 

2 ( 30 ) # PCR04 ( 30 ) # PS I Ml ( 30 ) 

~ DIMENSION ' TOADS (30)YrHO( 30) pRMODC'jO) » VPFC30) # VOS (30) # 
1VVM30) #RVBL(30) ,R) 101(30) .VIF(30> #VIG(30) tPROVOO) # HISOV ( 30 ) # H0VN2 ( 
230) # ODN ( 30 ) #PTA0V(3n) # DTTOV < 30 ) , FETOR ( 30 ) #TOTOV<30> #TGNT0.(30) 

3# IONS (30) r fiFS ( 30) # PRS1 ( 30 } iHISI (30) »MMS1 (30) #OIN(30> #DTAS1 (30) # 
4FFTS1 (30) rRHOX 1(30) # RPC XI (30) »PHll (30) iHC’ (30) #PRS2(30) #HIS2(30 > t 
5HHS2(30) # DTAS? ( 30 ) >EFTS2(30) # Rf|OJ2(30) t PHI 2 (30) #HC2<30) 

~ DIMENSION RECI2(30) (30) #HCSI 1 ( 30) #5! PCI (30) # HCTT 1(30) #1 !TM1 1 ( 

112) #HCCRC ( 30 > # USNW2 ( 30 ) »IICSI?(30) #SLPC?(3d) #MCTI2(30) #IITMI2(30) # 

2 MS I K? { 30 ) » MSI? 01 ( 30 ) * HS202 ( 30 ) # 1 IS203 ( 30 5 #1(5204(30) #HS?05(3 

30) # HS206 ( 30 ) #115207(30) *1(6208(30) »MS20 # *(30} #HS21 0(30) #HS21 1(30) 
DIMENSION MS?12(30) #H5?13(30) #HS?14<30) #M , ;?15< 30) # HS216 ( 30 ) # 

_ 1MS217 ( 30 ) # HS2 14(30) #PSDF(30) #H5PFM<3n) #HCDHC(30) #HCDFC(30> # . . 

‘ 2MCVOt.(30) #DPN(30) *RELB2(30) #HSNIN(30) #PHF‘ 30) * THFT2 ( 18 ) #YAN07(30> 
COMMON J # THET ( IB ) f PSI2(1A) # B2TH # PI 2 1 # 0122 r NOPI 2 # NST # RAFK < 30 > * 

11 HEIR (30) #DTHET( 1 A) #EFMOT (30) #PMOT(30) ♦ PSIM2(30) # POPS (30) 

LR = 5 
LW = 6 

3 FORMAT ( ' 1 * ) . 

5 FORMAT ( 3 A2 # A 4 # 3 1 5 * 3F 8 • 2 # F8 • 3 ) 

7 FORMAT ( * 1 DATE • # A2 # * - ' * A2 * • - * # A?/53X t * NERVA AIR TEST*/ 

152a# 'PERFORMANCE DATA'//) 

FORMAT (S3X# 'TEST NO. '#A4#//) 

FORMAT (18X* 'CONSTANTS’//) 


11 

13 

17 

“19 

21 

23 

25 

27 

29 


FORMA f ( 2X » * NOZZLE COEFFICIENT » CNOZ '# 6X»FJ. 0 . 4 # 2X #* ****) 

FORMAT ( 2X# 'NOZZLE DIA#‘ DNOZ* # 13X # F 1 0 , 3 * VX # 'SOIN' ) 

FORMA I ( 2X# 'DISCHARGE LINE DT A # DDL ' # 6X » D.O • 3 r 2X t 1 SQTN* ) 

■FCHMAT( 2 X » ' P L E E D ORIFICE COEFF * CORIF * # 4X» F10 .4 # 2X# ' *** * > 

FOi<MAT( 2X f * RLEcD ORIF AREA » ABE « # 10X # F 1 0 . 3 r 2X # « SQIN • ) 

FORMAT (/IflX# 'IMPELLER FIRST STAGE * > 32X # • I M f TLLER SECOND STAGE'/) 
FORMAT ( PX# 'DISCHARGE *\RF A BLOCKED * A T? 1 ' » SX t F 1 0 * 3 » 2X # * SOI N * # 1 OX f 
i'DlSCMARGi: AREA DLOCKF D ; A 1 22 * # SX # Fl 0 • 3 # ?>: # ' SOIN ' ) 

31 FORMAT ( 2X * 'DISCHARGE DIAMETER * D 1 12 ' # PX # F‘l 0 • 3 # 2X # ’IN' » 1?.X» 



0 0 0 G 3 6 
0 u u 0 3 7 
00G033 
_ 900039 
CUJORO 
0CUC41 
_ 000042 
000043 
00 0 044 

00004 5 

G00G46 

0CC047 

OOOC4B 

” 000049 
000050 
000051 
'000062" 
000053 
000054 
000055 
000056 


1* DISCHARGE D I AML I F R # PI 22 * » 9X t F 1 0 * 3 # ?X # • IN ' ) .. .. 

33 FORMAT ( 2Xf U.AnYfUNTH COEFFICIENT# CLAR1 • . 6X # F 1 0 . 4 # 2X # ' ** '#10X» 
1'LAUYKINIH COEFFICIENT# CLAB? * # 5X # FlO • 4#2>'# * 

35 F OKMAT ( 2X r * HHMliF.R OF DLADES# Z? 1 *# 12X » FlfU 1 # 2X # * _*_* '# lOX# 

1 • NUMt’ER OF (ilADES# ' Z22* # 1 ?X »Flfl . 1 #2X* • 

37 FORMAT< 2X# 'DISCHARGE BLADE ANGLE# DFT21 * ; 6X#F10 • 3# 2X# ' DFG 1 # a IX # 

1'OISCHARGF BLADE ANGLE t P,ET22 • # 5X * F 1 0 • 3 # 2>' # • DEG * ) 

38 F OKMAT ( 2X #* LABYRINTH FLOW AREA # ALB1 * » RX r El 0 • 3 # 2X # * SOIN • # 10X # 
1'LADYRINTH FLOW AREA# ALR2 • # OX » Fl 0 . 3 # 2X# ' SOIN • ) 

39 F0RMAT(/53X» 'HOUSING'/) _ ' 

41 FORMAT ( 2X# 'CROSSOVER AREA » ACRO\ » # 12X # Fl C * 3 # 2X» 'SOIN* # iOX # 

1 'CROSSOVER AREA# ACR02' » 1 IX # Fl 0 . 3 # 2X # 'SOIN' ) 

43 FORMAT ( 2X » 'CROSSOVER AREA# ACR03 ' # 1 2X # F 1 0 , 3 # 2X # » SO IN * # 1 OX# _ 

” 1 »CROSSOVp:R AREA# ACR04 ' r 11X#F10.3#2X» ' SOIM ' ) 

45 FORMATt 2X# 'DIFFUSER DISCHARGE AREA# ADFO » r 4X # Fl 0 . 3 # 2X # * SOIN* il OX # 

i'DIFF DISCHARGE FLOW ANGLE# RDFD ' # 1 X # F10 • 3 1 2X ^DEGjJ 

'51 FORMAT' ( 6F 1 0 V 3/bF 1 0 ,3/ OF 1 0 •~3/8F 10.3) 

53 FORMAT ( 0F10 *3/8Fl 0 • 3/2F10 »4) 

55 FORMAT ( 10F8* 3/0F0*3) . : 

"57 FORMA I ( 9F6 .3) “ “ “ 

59 FORMAT (61 X# 'WIDTH# RADIAL TRHUST # B2TH ' » ?X # F10 *3#2X# * IN f ) 






_ 0 0 0 057 

“ 00 0 0 so' '* 

000059 
0UUU60 
* UOOt'bl ~ 
000062 
G0U063_ 
“000064 
000065 
00 0066 _ 
000067 
000068 
000069_ 
”000070 

ouoon 

0 0 0 0 7 2 _ 
' 000073 
OGoO/4 
000075 
000076 
000077 
000078 
‘ 000079 
00 00.80 
OUOOiil 

cuocaa” 


6i format < 2X#*niDurrf< inlet tip dia# DTm'#5x#Fio.v2x** tti f viox».. 

1* INLET TIP DIAMETER# DJ21T»#nX# ft0.3»2Xr* IN *> 

63 FORMAT { 2X# * INDUCER INLET HUP. DlA# DI U H * f 5X # FlO , 3 1 2X p * IN '#10X» 

I » INLET HUP DIAMETER# 0T21H'#8X# riO,?*?XP IN »> 

6b FORMAT (///2X# ‘CALCULATED CONSTANTS’ // ) 

67 FORMAT < 2X t * VELOCITY OF APPROACH FACTOR # PLOW NOZZLE# VLAP'flOX# 
1F10 * 4 # 2X # •***/) 

69 FORMAT Tax DRAG T 6R0Pf:V”TQBRG ' V 12X # F 1 0 .*3# 2X f * INLB 1 j 
71 FORMAT ( 2X#»A?<S0LUT HUMIDITY # AHUM * * 34 X * FI 0 . 4 ) 

73 FORMAT! 2X#'MIXTURE DFNSITY # ROMTX ' # 34V # F i 0 .4 # 2X # * LB/FT* *3^ ) 

75 FORMAT ( 2X# 'SPECIFIC HEAT CP» # 40X#F10.4 #2X t 'BTU/LR/DEG* ) 

77 FORMAT ( 2X ** SPECIFIC HEAT CV* # 40X # FlO *4 # 2X # » BTU/LH/DEG' ) 

79 FORMAT { ?X#»GAS CONSTANT # RMTX ' #38X » Fin. 0 » 2X# * FTLO/LB/DEG \) 

81 "'FORMAT (""2X» 'MOLECULAR WEIGHT # WMOL ' # 3 4 X # F 1 0 • 4 / ) 

63 FORMAT! 2X # * TORY = » * F8 . 2 * 5X . » TWET = » #F8.2#5X» *REL HUMIDITY = ♦#■ 
1F8.2#?X# »PWET = » #Ffl.3#?X» ’ INHG'//) 

*520 READ (LRr 5) IM# ID # I Y #NOT # NOD AT # N0PI2# NODF » TORY # TWET # PHUMfPWET 
IF(NOOAT) 990 #990 #530 

_5_30 ‘READ ( LR # 5 1 ) CN07#DN0Z#DDL»C0RIF# A8L# AI21 #DI2l #CLARljZ2l # BET? 1# ALP 
1,1 #01 11T# Dll 1H# AI2? #0122# CLAP? # Z22 # DET22 # At-82 # B2TH # D 1 2 IT # ACRO) r ACRO 
22 # ACR03 # A CUO 4 # ADFD » BOFD » DI21H # TQRRG 

READ (LR # 65) ( Tl (ET? ( I ) # 1 = 1 # 18 ) 

READ ( LR # 53) (PUHG ( J) # TO ( J) # PSD ! J) #TO<J> #t>PORl < J) # T I ( J) # p T I ( J ) # PSI 
U J) iSMtJ) #TOStJ) # PS I Ml (J) rPSIN(J) #PCR01(J) #PCR02(J) # PCR03 ( J) r PCR04 

2 ( J) # DPN ! J) # PMOT ! J ).LJ= 1 ? NOOAT ) 

WRITE (LWt 3) 


j 

I 


000063 

000084 _ 

*000005 

000086 

£3 OOOG87_ 

00 0008 
^ 000069 

I — ■ 00 00 VO 

° " . 000091 ' 
000092 

000093 

000094* 

000095 

000096 

000097 

000098 

000099 _ 

000100 
000101 
_ 000102 
000103 
0001C4 
000105 
000 106 
000107 
OOUiOS 
0 uO 1 09 ' 
OOollO 

C00111 

000112 ” 
000113 
000114 
" 000115 
C00116 


V.RITE(LW#7) IM#IO#IY 

V.RITE(LW#11) NOT 

" WRITE (LW# 13) 

WRITE ILW# 17) CNOZ 

WRITE (LW # 19) DNOZ 

WRITE (LW# 21 ) DDL 
WRITE (LW #23) CORIF 

WRITE! LW # 25 ) APL 

WRITE (LW# 69) TGBRG 
WRITE (LW#27) 

WRITE (LW# 29) AI21#AI22„ 

WRI TE ( LW# 31 > 1)121 # DI22 
WRITE (LW# 33) CLAIM# CL AB2 

__ WRITE (LW# 36) Z21#Z22 

WR ITE (LW # 37 ) BET21 # UET22 
WRITE (LW #33) ALB1 # ALR2 

; W R I T E ( L W # 6 1 L D II 1 T # Q 1 2 1 T 

WR1TE(LW#63) DI 1 1H» DI21H 
WRITE (LW# 59) B2TH 

WRITE (LW #39) 

WRITE (LW # 41 ) ACRO 1 # ACR02 
WRITE (LW# 43) ACR03#ACR04 
WRITE (LW# 45) ADFD # BOFD 

C-CONSTAfJTS 

BE21R = PE 12.1/ 57 *296 

T13E21 = SIN (BF.21R ) /COS ( BE21R) 

SLR1 = 3*1416 * S IN ( QE2 1 R ) /Z2l' 

BE22R = 0ET22/57 • 296 

TBE22 = SIN(BE22R)/COS(BE22R) 

SLP2 =3.1416+SIN(8E22R)/Z22 

BDFDR = flDFD/67 # 296 

All! = *7854 *( D 1 1 1 T**2 - DIUH+ + 2) 

' ' A I 21 = .7854^(01211^+2 - DI21H++2) 
ANOZ ■ = .7854 * DNOZ++2 





AHL. = .7/154 * 0Dt.**2 „ . .. 

0£N02 = ONO//DOL 

VLAP s l./SORT( 1.«<AN02/A0L)**2) 

RRSOl = <0121/11 .4 ) **? 

~"'RRSQ2 = (0122/U.u) **2 " ~ 

C-PROPERTIES OF AIR-WATER VAPOR MIXTURE 

PVAP = Pv/L'T - PONG ( 1 ) * ( TORY-TWET ) /2700 • _ 

PAIR "= >OHC(l) ~ PVAP 
SHUM = PVAP/1 .GOP/PAIR 

ROAIR = 1.326934 * PAJR/(TDR.Y__+__459.67>. 

ROVAP =SHUM* ROAIR 
ROMIX = ROAIR + ROVAP 

POXY = .21 * PAIR * .49115 

PNIT = .79 * PAIR * .49115 
ROXY = 2 .96 4 4 5+ POXY/ (459*67 + TORY) 

RON IT = 2.6114 * PN 11/(459.67 + TDRY>__ _ 

OTOr = ROXY + RONIT + ROVAP 
GOXY = ROXY/GTOT 

GrJlT = ROMII/GTOT 

GVAP = ROVAP/GTOT 
CPOXY = .217 * GOXY 

CVOXY - .155 + GOXY _ 

“ CVNIT = .176 * GNTT 
CPNIT = .2455* GNIT 

CPVAP =_ .444 66 * GVAP : 

C WAP = .354 42 *’ GVAP 
CVMIX = CVOXY + CVNIT + CWAP 

CPMIX = CPOXY + CPNIT + CPVAP 

" XKM1X ' ’ = CPMl X/CVMI X 

RMIX = 778.2 * ( C Pi'll X - CVMIX) 

X MM I X = 154 6 • /RMIX _ „ 

XKEXP =*{ XKMI X-l . ) /XKMI X “ 

C-INCREMENTS OF THETA 
DO 4 ft B I “ 1 » NOPI 2 

488 THET(I) = 7HKT2(I> * " 

DO 490 I=lrN0PI2 

490 THET<I> = THET(I)/57.296 

"'“‘UNIT =~~N0P'X2- 1 

DTHETU) = 0.5 * (THET (2) -THET< 1 > + 6. 2834 - THET(N0PI2)) 
DTHET(N0PI2)= 0,5 * (6.2834 - THET(LIMT) ) __ 

-'DO 492 "I=2»LIMT ' ’ 

1 492 OTHEKI) = (THET(I + 1) - THET(I-l)) * 0.5 

J = 0 

50 0 J - J + ”i 

IF ( J-NODAT) 510,510,900 

_C-INLET CONDITION _ 

*510 POPS(J) =0.49115"* POHG(J) 

TOADS ( J) = 459.67 + T0(J) 

_ RHO(J) = 144. * POPS ( J) /T0AB5 ( J) /RMIX 

T^pUKP DISCHARGE "CONDITION * • 

PSU(J) = PSD ( J) / 27.67 + POPS(J) 

RHOD(J) = 144. * PSD ( J ) / ( TD ( J) + 459.67)/RMIX 

~ PNOZ = PSD(J) - DPN(J)/27.67 
RPNOZ = PNOZ/PSD ( J ) 

YNOZ1 = (1 .-RPN0Z**.?R6)/(U-RPN07> 

YNOZ2 s ( 1 * -BENOZ* +4 ) / ( 1 . -BEN0Z**4 * RPN07+* 1 743)'" 

YANOZ(J) = SORT ( RPN07* * 1 • 43 * 3,5*YN071 * YN072) 

XKNOZ = CNOZ * YANOZU) * VLAP 

‘ VDF(J) = 0.12708** ANCZ *XKNOZ *' SGRT(DPN(J)/RHOP(J) ) 

VDG(J) = 440.03 * VDF(J) 



• : f ; 



i 



(91 * 1 = 1 * ( I ) 2ISd) (SS'til) 0V3U 

(dldON)lVOnd =20NX 

- ““ <P)U0Htf/Z**(P)N5/*2l/(DA010i = (P)OXHOI 

(P) A0XJ3/ (P>N5/ (P) AOSIH * (DMA * XWSMiTt = <P)AOXOI 

((•0oi/(rnuA>i+*i)*iP)2svxa+<p>isvxa)/<r>Aoixa - (p)Aou3 

(P)2$VX0/ 2S IXO = (D2SJL33 
(*T - dX3MX**( (P)2syd) > * U9*65+r + C P > I JL ) = ZSIlO 

(^)U - ( p ) ax = (pjssvxa 

2**(P)NS/<P)2SIH = (PJ2SNH 
XlWdD* ( * X - dX3XX**(P) 2Slict ) * U 9*65+7 + (P)Ii) * Z'ttLL = (D2SIH 

(P)IXd/CMH#t/ “13AUH * (DCJOltd + (P)USd) = (Pi5T>>M _ 

33MVWdOdM3d 39V1S ONOD3S-D 
2**I2n/(P)TSIH * b/.T*2£ = (P)I3H 

T2n/T2Itf/tP; ClOHti /( Itn«A+<P)MA)* 0 * +H?T = (pJTIHd 

•001 * C (P)«A/ianWA)= (P) IXD3U 

< (P) TIT 

ona* « (P)HXSd- £p> iifliisd) / Xdoi»*iavno*iuiv* vxbuyy = rm«A _ 

" ' XXrtd/(X9*6Slf+( (P) }.l+(P)0X)*5s # 0)/{P) IhlSd * * *i+/t ' = ' (P) I IOHH 

(P)SdOd + A9*/2/(P>TW15d = (P)IWTSd 

•622/T2I0+(P)NS = 120 

(P)TSVIU/ TSIia = (P) IS 133 
< * t - dx3xx**< (pnsdd) > * (Dsavox = xsuo 
_ _ _ (P)OX “ (P) I JL = (P)TSViQ 

(P)XOH«/(P)aoMy * (p>mqo = <p)nio 
2**'<P)NS/(PJ1SIM = (P)TSIiM 

XI WdD* ( * I - tiX3MX**(P) lSUd)*{P)SUVOl * Z'^LL = (r*)XSIil __ 

(P)SdOd/(P) Ud = (P)TScid 225’ 
33NVWi!Q3M 3d 391' LS lSdld-D 

XIWd3*2*+ <P)MS/( • I - tlX JXX**i4IUd ) * (P)SGVOi * 2 *\JLL = (PJIJIfl'iH 

<P)SdUd/(P)HlSd = HI lid 
(P)ScJOd + X9*/2/(P>NlSd = {pKIISd +J25 
+726*225*226 ( ( ( P ) HI Sd ) 59V ) j I 915 

30NVWU0dW3d d330aNI-0 

(GdtlOX* (P) NS*A2£90Q * - 9XCX** (P) XOWd ) / (P) MA* (P) A05IU = (P)XONd‘J 6X6 

615*915*9 [5 ( (P)X0WH)3I 

'(r , )SOX/(PjNS/(P)'AOSIH*(p)MA+ 'XUGMitT = <P)SdJ"‘ 
(P)00HH/2*i(P)NS /*2T/ (P)SOi = (P)SNOL 
d3M0d dOXOW GNV 3U0d01 XdtfHS 03UnSV3H W0U3 03AId3a ADH3IDIJ33-D 
(‘1 ~ dX3XX + *(P) AOdd) * (P)OUVOX = (DAOliO 
(P)Oi - (P)fJX =' (P)AOVXO 
(P)U5/(P>0OA = (P)NUO 

"" 2** (P)HS/(P) A0G1H = <P)2f!A9M 

XIMD+(*T - dX3>i»*(P)A0>Jd> * (P)SHVUX * Z'ZLL - CP> AOSIH 

(P)SdOd/( * t? ♦/ T / 13ACH * (P)CIOHU + (P)OSd) = (P J AO>M 9T5 __ 

3DHVWd03>J3d "T1VW3A0 dKMd-O 

(P)SdO d + X9V2/(P)Iid = (P)IXd +7X5 

9X5 OX 09 

•b*iI/33AIH*(p)I0HM + (P)ISd = (P)Iid 

t/V:*1,9/2**I2I9 = “1 3 A I H 
996 * 0/ * +»+? X * T2lV/(P);irA = T2I.9 2x5 _ 
+j 1 5 * 2 X 5 * 2 1 5 (CP)lXd)Jl 
(P)dIA + CJ'ttbb •= (P)9IA 
(PJIOHd/nCJ/AA + (P)KA) = ( P ) : j I A _ 

XIWd'/(i9*bSb + (p)IX)/(P)ISd * * +7 +7 T = (P)IOHH 

(P)SdOd + Z.9*I2/tP)lSd = (P)ISd 

NOIXIOf JOO 39V15d3XrjI-0 
(P J MA/ltJMA * *UOX = (P)1HA>J 
<{p)aOHd+(P)IdOda)XdOS * diaOD + luv * 90X2X*n = IPMA 
2**nOV/(P)9UA) * 9100 M) = ’HAdH 
(P)JOA +■ (P ) 001 Ul 2 (C) MA " 


9f2090 
5^2000 
+7 520^0 

cczono 

2tT2000 

TC2000 

oe2ono 
622000 
022000 
LZZ 000 
9 2 ? Q a o 
522000 
be 2000 
C 2 2 0 0 0 
222000 
122000 
0 2 2 r > 0 0 
' 6X200 0 
5T2000 
_ X X 2 3 0 0 
912000 
5X2000 
♦7X2000 
” C 1 20 0 0 
212000 
1X2000 
n.t2ono 
602000 

5 0 2 n 0 
X02O0 0 
9C200C 

_ 5 0 2 0 0 0 
0020 00 
CU200U 
262 r 00 
~ T 0 2 n 0 0 
002000 
66 1 000 
‘ 96XOQ0 
46 1 00 0 
“610 00 
' 56X000 
+76X000 

CO T 0 0 0 
26 T 0 00 
T 6 1 0 0 0 
OGTOrjo 
" 69 T 00 0 
99X000 
XOTO00 
“9X00 0 

6 V’ TO 00 



• +7“ to on 

C 9 1 0 0 0 
291000 

T 9 T 0 0 0 

091000 

6/1000 

_ 9 / l n 0 0 _ 

‘ ~ " // I 000 







0002 M 

DO 100 I: 

00 0238 

100 PSI2U ) : 

000239 

PS12T = 1 

000240 

DO 102 I: 

"OuO?'i 1 

102 PSI2T = f 

000242 

PSI M2 (J) 

00U243 

RHOI 2 ( J) 

000244 

VWLD2 

001)24 6- 

12(J) ) 

OC 024 6 

U22 = 

0 U U 2 4 7 

PHI2(J) : 

000248 

HC.2 ( J) = 

000249 r 

Rf 1 LU2( J) 

"* 000260 ~ 

REC12(J) 

000261 

RHK(J) = 

Ci:0262 

C-FIRST STAGE 

000253 

C-CONTINUITY 

000254 

PR1S1 = 

0 0 0 2 5 5 

- H I S 1. 

000266 

MShV.'J LJ) 

00 02 67 

HCStl <J) 

QUO 2 58 

SLPCKJ) 




^ y-v -Kv r-i 


• V*V: •* (•. .’ : V. /%/.- 


:] »riOPI2 .. ... 

: PSI2(I)/27.G7 + P0P5(J) 


PSI2T 4 PS 1 2 ( I ) 

= PSI2T/XN02 

= 144. * PSIM?(J)/<0.5 * (TO t J) 4 Tt (J) ). +459.67) /RMTX. 

- .£,68476 +ALB2+CLAB2+S0RT < (PSIM2 ( J) -PST ( J) >*RHOI 

5N< J) * 0122/229. 

: 144*0 * ( VW ( J) +VWLB2 +VWRL ) /RHOI 2 < J) /A I 22/U2? 


= 77P. 2 . . TOArjS(J) .*CP.RIS1**XK5*XP-10 JH..CPMTX 


| 

p 

b 


oouaso 

U00260 
0 0 U 2 6 1 __ 
’‘00 0262 
000203 
0U0264 
" 00026b 
000266 
_0002u7__ 
'000266 
0002 69 
000270 
000271 
000272 
000273_ 
~ 0 0 u2 74 
0 00275 
00027 6 
”00o277 ' 
00U273 
_ 0 U 0 2 7 9 _ 

0UU260™ 

000251 
_0UU262 
0U0283'"" 
00u2fi4 
00U265 
” 0 0 0 2 b 6 
00C207 
00020B 
" 000269 * 
000290 
_ 0C0291_ 
000292 
000293 
000294 
*000295” 
000296 


C-i 


nvmi - A.- PHIl(J)/ THE? i - slpi 

HCTIl(J) r0.5+RRS01 +(rnil(J)**2 + HCTHH*2) + HCSIl(J) 

HTNIJ(J) = HCTIl(J) +0121**2/1687236. 

■CROSSOVER CHANNEL 

IFCPCROHJ) ) 105*105^103 

103 PCROl(J) = PCROHJJ/27.67 + P0PS(J)... 

PC 14 0 2 ( J ) "= PCH02( J)/27.67 + POPS(J) 

PCR03 ( J ) = PCR03< JJ/27.67 + POPSCJ) 

PCU04(J) = PCP04( JJ/27,67 + POPS(J) .... 

PCKOl < J) V 776.2 " * TOAHS < J) t ( (PCROl ( J)/P0PS< J> >+*XKFXP-l . )*CPMTX 

PCR02 ( J ) = 778.2 > TRAPS ( J ) * < ( PCRO? ( J ) /POPS ( J) ) * +XKFXP-1 • ) +CPMTX 

PCR03 ( J ) = '776,2 * TO APS ( J > * ( ( PCR03 ( J ) /POPS < J) ) * + XKFXP-'l • ) *CPMT X 

PCR04(J> = 778.2 * TOAHS<J>*((PCR04<J>/POPS(J)>**XKFXP-1.>*CPMIX 

RHOCR = 0*5+ (RHOI 1 U) 4 RHOI(J)) 

HVCfil = 322 . 24 7+ ( ( VW (O) + VWBL ) /PHOCR/ACROt > * *? _. 

HVCK2 322 . 24 7* ( ( Vto ( U ) + VWHL ) /RHOCR /ACR02)**? 

HVCR3 = 3?2.?47*< <VW(J) '+ VWPL ) /RMOCP/ACR03 ) **2 

HVCR4 = 322 . 247+ { ( VW ( J) + VV/PL ) /PMOC-’/ ACR04) *+? 

PCROl ( J) =1667236. * (NTH 1 1 ( J) -(PCROl ( J) +HV< r> 1 ) /5N ( J ) * + ? ) /DT21++2 

PCR0?(J>=16ft7236.*(HTNIl(J)-(PCR0PCJ)+HV(.R2>/SN(J)**2>/PT21**2 

PCR03C J) = 16»75>36.*(HTHI1 (J)-(PCR03(J)+HVrP3)/SN(J>**?)/DT21**2 

PCK04 { J) -168723 b • + (MTNI 1 (J) - (PCR04 ( J) +MVf’R4 ) / SN ( J ) **2 ) /DT? 1**2 

105 HCCKC(J) = HCTIKJ) - H.Cl(J) 

-SECOND STAGE IMPELLER PERFORMANCE BA5FD CM STATIC WALL PRESSURES^ AND 

"-CONTINUITY ’ 

PRIS2 = PS I M2 ( J) /PTI (J) . ^ 

HISW2 = 776.2 *(TI(J) + 459.67) * (PRTS2**XKEXP -_1* >;*CPMIX 

HStJW2( J> = MISW2/SN(J)+ + 2 

HCSI2 (0 ) = 32.174 * HISW2/U22**? 

SLPC2 < J ) = l.-l./fl* -PHI 2 ( J ) /TBE2? ) * SLH? 

HCTH2 = l.-PHI2(J)/TBE22-SLf > 2 

HCT-I2 C J) =0.5*RRS02 +(PHI2(J)+*2 + MCTH?«*2> + HCSI2(J) 

HTNI2(J) = HCTI2 ( J) * 0122*+?/ 1 687236 . ... 

^SECOND "STAGE" IMPELLER CIRCUMFERENTIAL PRESSURE DISTRIBUTION 

DO 104 I -1 r NOPI 2 . , 

104 PSI2(I)=778.2 * ( TI ( EJ ) +459. 67) * _C (PSI 2 C I ) / PTI < J ) )**XKEX P - 1 .) 

i“* C PM I X + H I S 1 ( J ) T" 

HSI2T = 0 


13 







it *i r : * K ‘» 


& j && Sfcfe r\'j*£<£& r ■ ^ feffijga^fc 


U^&t£ld^WtoL~ 


^i fc dt Ajj tf fctft 


000297 

Ouu.VGO 

UUU299 

Q0U30Q 

000301 


no 106 I=1*N0P!2 
' 106 HO liiT = M512T + PSI 2(1) 
MSI 2 = MSI 2T/XN02 

00 100 I=l#NnPI2 
108 PS 12 ( I ) = PSI2CI)/HSI2 


000302 

OUU303 

MS I M2 (J) 
HS201 < J> 

= MS I 2 /SN ( J) **2 
= PSI2<1> 

0 0 u 3 0 4 

HS202< J) 

= PSI2 ( 2 ) 

000305 

NS203< J> 

= PSI 2(3) 

00 030b 

HS204 ( J) 

= PS 12(4) • _ ....... .... . 

000307 

HS205( J) 

= PSI 2 (5) 

000300 

HS-206U) 

= PSI2(6) 

00 030 9 

HS207U) 

“ P5T 2(7) „ . _ „ 

0 o u 3 1 0 

HS20W t J) 

= PSI 2 (8) 

0 0031 1 

HS2U9U) 

= PSI 2 ( 9 > 

0UU312 

HS21U t J) 

= P5I2U0) 

0003x3 

' HS21 1 ( J) 

'= PS I 2 ( 1 1 ) 

000314 

HS212 ( J) 

= PS 1 2 ( 1 2 ) 

000315 

HS213 ( J) 

= PS 12(13) 

00 u3 1 6 

1 IS 2 14(D) 

= ’ PSI2H4) 

000317 

HS;U5( J) 

= PS I 2 { 15 ) 

000318 

H52 16 ( J) 

= PSI 2 ( 16 ) 

000319 

HS217( J) 

= PSI 2 (17) 

0 U 0 3 1 0 
UO o321 

HS21R ( J ) 
f!ST=2 

= PSI2 ( 18) 


000322 
000323 
000324 __ 
' 0 Du 325 ” 
0‘0 0326 
000327 
" 00 0 328 " 
000329 
00 0320 _ 
L> U 0 o 3 1 
CGu332 
00U233_ 
' C 0 0234 
0 0 0335 
000336 
’ 00O337 ' 
00 (>338 
001)339 _ 
” 000 240 “ 
00 0341 
0 00 34.2 . 
0OU343 
COO 344 
001)345 
000346 " 
000347 
000340 
"' 000349 ' 
000350 
000351 
" 000352 “ 
Ou 0353 
0 0 0354 
000365 
00035b 


HI CALL RATHR 

_C-DI FFUSION HOUSING SECOND STAGE — • 

109 READ (LRf 57) ( PSDF C I ) r T = 1 * 9) 

MO 110 IzJrNODK 

110 PSUF(l) = PS[)K(I)/27.67_ +.P0PS.(J) _ . 

DO 120' 1=1 » WOOF 

120 PSDF(I> = 778.2 *(TI ( J)+459,67)*-C <PSnF(Il/PTT ( J) )**XKEXP-1.) *CPMI 

HSDFT =’0 
DO 122 I = HNODF 

122 HSDFT = HSDFT + PSDF (J ) , 

XNODF =" FLOAT (NODF) 

HSUFM(J) = HSOFT/SIH J)*+2/XNODF 

C- DIFFUSER DISCHARGE ANGLE RASED ON PFl El DEFERS DEVIATION.. ..CRITERION . 

CM62 = 144. * VW(J)/RHOD(J)/ADFD 
• CUTH2 = U22*(1.-PH12(J>/TRE22> * SLPC2(J) 

AL52R= ATAN(1./(2.01 + 0.245 * CljTHP/CMSZ .1 >_ 

'"HVUF = .975 * (CM52/SIN(ALS2R) )*+2/64.4 
HTMDF = HSDFM(J) + HVDF/SN ( J) **2 

HCDHC(J) s HCT 1 2 ( J ) - HC2CJ) ... 

HCOF = 1687236. /DI22**2 * HTMDF 

HCDFCU) = HCTl2tJ> - HCOF * 

__ _ HC VOL ( J ) = HCOF - HC2(J) — 

GO TO 500 
900 CONTINUE 

WRITE (LWf 65) . - 

” VMITE(LW*67> vlap 
WRITE ( LW » 71 ) SHUM 

WRITE (LWr 73) ROM IX - 

WRITE(LW#7S) cpmix 
WRITE (LWr77) CVM.IX 

WRITE (LW# 79) RMIX _ • ' 

WRITE ( LW » 81 ) ' XMMIX 

201 F0RMAT(///2X# 1 INLET CONDITION* » ?6X H FLOW NOZZLE EXPANSION FACTOR*/ 





'£03 FORMAT ( 2X # * DATA * #5X# f INLET TEMPERATURE* *13X# ’AMBIENT PRFSSURE* t 1 4 
1X» * WEIGHT DENSITY* »16X# *YANOZ*> 

205 K OR K ATJL 2 X f * PO I MT * 1 9 X.r * DEG * I N HG *..# 1 6X> / PS I A * # 13X ?_* LB/CUFT * 

l/> 

207 FORMAT ( 1 5* F17 • 3 » 2F20* 3 # F20 • 4 # F26» 5) 

WRITE <LW#201> - - 

WRITE (LW# 03) TDKYrTWETrRHUMrPWET 
V/RITr (LW r 203) 

WRITE (LVI'205) ... . • • 

WRITE <LV/#207) ( J#TU ( J) #POMti( J> #POPS( J) #RHO( J) ♦ YANOZtJ) # J=1 #NODAT) 
211 FORMAT <///2X#*PUMP DISCHARGE CONDITION* //) 

213 FORMAT { ?X f * DATA * f 7X r * TEMPERATURE * # 3X » *STAT PRESSURE* »4X# ’WEIGHT D _ 
1ENSITY* r4X# * VOLUMETRIC FLOW RATE * # 5X r * WEIOI tT FLOW* 1 5X# * BLEED FLOW* 

2) 

215 FORMAT ( 2Xf ’POINT* »9X# *DEG F* # 10X# *PSIA* # 11.X# *LB/CUFT * #BX# *CUFT/S*_ 

1 r 9X r * PPM* f 1 IX f *LB/S* f 3 IX f * PERCENT * / > 

217 FORMAT ( 15# 2F17*3r2Fl5.4#F15#3r2F15«4) 

WRITE (LWr21U - ----- - 

WRITE (LW f 213) 

WRITE <LW* 215) , . 

VfRITL ILW # 217) ( JfTO( J) # PSD < J ) .# RHQD ( J) . # VOF < J>_# V.DG ( J).» VW ( J) #RVnL(J)# . 
1J=1 fNODAT) 

221 FORMAT < ///2.X f ’INTERSTAGE CONDITION*//) 

223 F ORMAT ( 2X f * DATA * f 7X f * TEMPERATURE * # 5X * * TOT PRESSURE * #4X # *STAT PRES. 

1SURL •» 5X #* WEIGHT DENSITY* f9Xf ’FLOW RATE’) 

225 FORMAT ( 2X f * POINT * f 9X » * DEG F*#6Xf*P SIA (RMR DIA) » f 5Xf ’PSTA* f 16Xf *L 

in/CUFT* rOXf *CUFT/S*#10X# *GPM*/) _ 

227 FORMAT ( 15 pFi7.3»2F15.4»F21.4»2Fi5*3) 

WRITE (LW# 221 ) 

WRITE ( LW f 22 3) — 

WRITE ( LW f 225) 

WRITE (.LW #227 ) Uf TI < J> #PTI < J) # PSI ( J) f RHOI U> # VIF ( J) # VIG < J> # J=1 #NOD 

1 AT ) — - 

~~231 FORMAT ( ///2X# ’PUMP OVERALL PERFORMANCE*//) 

233 FORMA T< 2X# 'DATA* #5X# ’SPEED* #4X# ’PRESSURE* *3X# ’TEMP RISE DEG F*»4X 
1 1 * HEAD RISE * »4Xf *HlS/ri**2*^7XF* Q/M* f 4 X f ’ F T A TEMP* r 2X# ’TORQUE . T* f 3X 

2 t * NORM* TORQUE T » ) 

235 FORMAT t ?Xf 'POINT* f5X# *RPM* #7Xf ’RATIO* f4Xf 'ACTUAL* #4X# * ISENTP* #3X# 

1 * JSENTR FT* f A X f » FT/RPM**2 * t 3X f * GpM/RPM * .# 1 U :< #_• IN U5* f5Xf * FT**4/RP«*.. 
2*2*/) ' 

237 FORMA T( I 5 f F12 . 1 f 3F10 .3 r F 10 . 2 # £15. 4 # 2F 10 . 4 r FI 0 . 3 # El 5 . 4 > 

V/R I TL" l LW f 231 ) 

‘ WRITE(LWf233) 

WRITfc (LW f 235) f . 

V/R ITE ( LW f 237 ) ( J,S N( J) fPROV(J) fDTAOV(J) fDTT )V(J) pHISOV.U) »H0VN2(J) f 
10DIH J) fEFTOV ( J) fTOTOV(U) #TQNTO< J) # J=3 * MOD AT) 

241 FORMAT ( ///2X » * EFFICIENCY DERIVED FROM MEASURED SHAFT TORQUE AND MO 

1TOR POWER * » 37X f * REHEAT FACTOR*//) .... . _ 

“p.4" 3 FORMAT ( 2Xr •DATA* » 6X #* MEASURED TORQUE ’• 5 X f * NORM TORQUE* f BX •* FFFICI 
lE.MCY* »5X» ’MOTOR POWER* »3 X» ’EFFICIENCY* f 17X t *RHK* ) 

245 FORMAT ( 2X f » POINT * » 5X r * IN LR * 1 1 1 X # * FT*+4/RPM**2 f # 1 OX^/EFS^ f 1 IX t * ( WA 
’ ITT ' » lOXr »EFMOT» f 13Xf * (HIS1+HIS2) /HISOV* / > 

247 FORMAT ( I 5 f F17 . 4 f E20 * 4 f 3F15 *4 » F25* 5 ) 

WR ITE (LW# 241 ) 

V.'U-I TE ( LW F 24 3 > 

WRITE (LW# 245) 

WRITE (LW# 247) ( J # T QS ( J ) # TONS ( J ) # EFS ( J ) # P HOT( J? #E FMOT (J U RHF ( J)jU=l_. 
l,NOL) A T) 

251 F0RMAT(///2X# ’FIRST STAGE PERFORMANCE*//) 



■- • **'-*- ijjii ..wcur.'^^ - 


^ ■ 




000417 2 r >3 FORMAT ( ?y * * [i AT A * fSXf * PRESSURE * f£Yf Mlf'A!) Pl^r* # ^y, • II 1 5 /-M * * 2 * » SX » *0 

‘ ,!)l)4io 1/** NR f f # 4 X f * DELI A T * f 3 X f * E T A T EMP * * ?X f • LA 8 FLOW* f 3X #• PHI (?>* n%X* *P 

U 0 0 4 1 9 £ £ I ♦ ) 

00 L4JO ... 2^5 F OHM A f ( ?Xf*P0INT»f5Xf*RATI0*f3Xf*ISF.;nTR FT* *3Xf *FT/RPM« +2* * 4Xf *0P 

00 U 4 21 2M/KPM * PjXf * DEC F * f 16X f * PERCENT ' / ) 

0u ° £ *'-2 257 FORMAT U r >fF12.4fF10*2fF15*4fF3 0,4fF10,3^F12,4fFin,3r2F10.4) 

.00 U42.3 __ V.rUTrfLw»25L) 

0 u 04 2 4 ~ . WR I TC U.W f 253 ) 

060425 WRI1F <LWf?65> 



066427 

0CJ42(j 

000429 

0 U 0 4 3 0 
0 0u4 31 
UU0432 
' 0U0433’ 
0004 34 

U0U435. 

0UU436 
0 U 0 4 3 7 

000438. 

00 0439 
00044 0 

000441 

“'0004-42 ' 
000443 
_ '000444 
CU0445 * 
0 U 0446 
' 000447 
?< *" OOU448 
° 000449 

ro _ 0 0 04 ‘SO 
U1 ' 00 0451* 

000452 

000453 

* U 00454 
000455 
OOj^bb 
0004 37 
000458- 
0 004 59 
000460 
0004 6 1 

0 004 6 2 

0 o04b3 
000454 
_ 000 465 _ 
uOO 466 
000467 
000468 
000469 
000470 
00 04 7 l 
000 472 *' 
0 U 0 4 7 3 
000474 
0 0 04 75 " 
000476 


WRITE (LWf257) ( JfPRSI ( J) fHISI < J) fHNSI ( J ' fOIN( J) »DTAS1 < J) fEFTSI < J) r 

lurcil CJ) f Pi II 1 { J ) » HC1 ( J ) f jrlfMOnAT) 

261 FORMAT £///2Xf ♦SECOND STAGE PFRFOf?MANCE * //) 

„263 FORMAT ( 2Xi *DATA » fSXf ‘PRESSURE’ f2Xf *HEAD R 1 SE * » 3X # 'HIS/N**2 ♦ » 5X f * 0 
1/N NET * f 4X f * DELTA T*f3Xf»FTA TEMP * f 2X f * LAO FLOW • f 3X f * PHI ( 2 ) * f 6X f * P 
251 * f 3X f 1 TOT DEC IRC * ) 

265 FORMAT ( 2Xf*POINT*f5Xf*RATI0*f3Xf*ISEMTP FT * f 3Xr * FT/RPM*+2* » 4 X> * GP 
1M/RPM * » 5 Xf * DE G F 1 1 15X * 1 PERCENT * * 23X » * PERCENT * / ) 

267 FORMAT (I5fFl?*4fFlQ*2»E15*4#F10#4fF10*3»F12*4^F10*3»3F10#4) 

WRITE (LWf 261 ) 

WRITE < I- Wf 263) ’ * 

WRITE <LWf?G3> 

WRITe(LWf?67) ( JfPR52(vO f H 152 ( J) f HNS2 < J> fODM(sJ) f DTAS2 ( J) f EFTS2 ( J) r 

1RELH2 ( J ) f PI (12 ( J) f HC2 ( J) fRECI2(J) * J=1 fNODAT ) 

271 FORMAT (///2X# * INDUCER PERFORMANCE * // ) 

_273 FORMAT ( 2X » * DATA * r 3 X f * NORM STAT HFAD* ) 

275 FORMAT < 2Xf ’POINT* f2Xf ’RISE FT/RPM**2‘/) 

277 FORMAT £ I5fE17.4) 

_ IF(Af.S(PSJM(l >)) 532 1 532 r 534 
534 WRITE (LW» 271) 

WR I TE (LWf 273 ) 

V:FUTrU.W»275) 

WRITE (LV/» 277) "(JfH5NIM( J) f J=1 f MOD AT) ’ 

281 FORMAT (///2Xf * FIRST STAGE IMPELLER PERFORMANCE RASED ON STATIC WAL 
1L PIUS 5 URL 5 AND CONTINUITY*//) 

283 FORMAT < 2X f * DATA * f 4X f * MEAN STATIC 1 f 6X f * NO^M STAT HD*f3Xf*STAT HEAD 

1 * f 3X f * SLIP * » 6X » * TOT HEAD * f 5X f » NORM TOT HO* f 4X» ’PHI ( 2) * f 4Xf ’DENSITY 

__ 2 RHOl 3 * ) 

265 FORMAT ( 2X # * POT NT * f 3Xf * PRESSURE" F > SI A * f 2X f ’RISE FT/RPM**2 * 1 7X f * COEF 
IF* fISXf *COlFF* F 7Xf »FT/PPM* + 2» f IP.Xf *LM/CU* r T*/) 

287 FORMAT ( I5fF17.4fE15.4f F13«4 fFIO . 4f F12,4fF1 5, 4f 2F1?.45 
532 WRITE (LWr 261) 

WRITE (LWr 263) 

WRITE (LWf 285 )_ 

• WRITE <LWf? 67) t JfPSIMI ( J) fHSm’wI ( J) fHCSU < J) f SLPCl ( J ) > HCT T 1 ( J ) V HTN I 
11 (J) tV\il HJ) fRHOI 1 £ J) f.J= If NOOAT) 

291 FORMAT £ ///2X f * SECOND STAGE IMPELLER PERFORMANCE PAGED ON STATIC WA 
ILL PRESSURES AND CONTINUITY ♦ // ) 

293 FORMAT ( 2Xr * DATA * f 4 X f * MEAN STATIC * f 6X f * NORM STAT H0*f3Xf’STAT HEAD 
1 * f3Xf *SLIH» f6Xf *TOT HEAD * f 5X f • NORM TOT HO * f 4X * » PHI ( 2) * f 4X * » DFNSITY 

2 RHOI2* ) 

295 FORMAT i 2X f * POINT* f 3Xf ’PRESSURE PSI A ♦ t ?X f * RISE FT/RPM**? * r 7 Xf * COFF 
IF * f 1 6X » • COEFF * f 7Xf *FT/RPM+*2» f IrXf *LR/CUFT*/) 

297 FORM A T ( 1 5 # F 1 7 • 4 f E 1 5 . 4 f F 1 3 • 4 f F 1 0 * 4 f F 1 2 • 4 f F 1 5 • 4 f 2F 1 2 * 4 ) 

WRITE £ LW f 291 ) 

V.'K ITF ( LW f 293) 

WRITE t LW f 295 ) 

WRITE t LW f 297) ( J f PSIM2 ( J) #HSMW2( J ) t HCSI2 ( J) fSLPC?£ J ) t HCTT2 ( J) fHTNI 
12 (J) fPHI2(J) f PH0I2 ( J) f J=1 fNODAT) 

’30i FORMAT (///2 Xf * CROSSOVER CHANNEL*//) 

303 FORMAT ( 2X f » DATA * f 4 X f ♦ TOTAL HEAD LOSS COf-FFTC IENT* f 17Xf * OVERALL * ) 







0ui;4 77 . 

oofiif 7 a 

000479 
0004/30 
000401 * 
0004(32 
OU0483_ 
’ 00U434 

0004 as 

0u04a6_ 

GUU447 

outran 

0004.49 

000490 

000491 

00U492 

000493 ‘ 

0U0494 

00049b 

000496 

000497 

(U9-4 94 

00 U*» 99 

000500 

000 SOI _ 

G 0 1 j : 02 ’ 


305 FORMAT? 2 X r * PO I NT ' r 3>X f • S T A 25 • • 4 X • * ST A . ,? 6 ' f 4X> * ST A-..27 • * 4 X r * ST A 24*. 
l , nx> *ONr>PlM»/) 

307 FORMAT ( I5*Fl2.4#3Fl0*4#F14t 4) 

V:i?ITtMLWr301) 

WK I TE ( LW r 303 ) ~ 

WRITE ( LWr 305) 

WRITE (LWr 307) (JrPCROl ( J >.?PCR02 ( J).? PCR03 ( J ) r PCR.04 < 0 > »HCCRC ( J) t J=1 r 

iriooAT) ” " 

3U FORMA 1 (///2Xr ’CIRCUMFERENTIAL PRESSURE DISTRIBUTION - SECOND STAGE 

1 IMPELLER * // ) - 

313 FORMAT* 2X r * DATA 1 t 3X r 1 NORM AVG * r 5X r * RAT TO OF STATIC HEAD TO AVERAG 

ir si atic head rise* > 

3 lb FORMAT < 2Xf 'POINT* r2Xt.* STATIC HEAD*. »?X* * (l) ♦ *7Xf * (2) .V?Xr * (3) ’ *7Xr 
1* (4) * r7Xr * (5) * r7Xr '(6> * r7Xr * (7> * r 7Xr * (B) » r7Xr * (9) */> 

317 FORMAT (I5rtl5.4r9F10.6) 

WRIU.tLv.9311) __ __ __ 

~ VIRITE(LWr313) 

WIUTF (LWr 31S) 

• WRITE (LWr 317) (JrHSIM?( J) rHS20l ( J) rHS202( J) rHS203(J> »HS204(J) rHS20 

IE) ( J ) r HS206 ( J) r HS207 ( J) rHS2U0 ( J) *HS209<J> r J=lrNOQAT) 

Jr (N0PI2-9) 400 f 400 » 402 

402 CONTINUE 

"319 F GKMAT ( //2Xr *DAT A * r 4X r * RATIO OF STATIC HEAD RISE TO AVERAGE STATIC 
1 HEAD RISE*) 

32l FORMAT { 2 X r 'POINT* r BX * * (10) * • flX # * ( 1 1 ) • # MX » * (12) * t BXr M 13) * . r flX» * ( 1 4 
1) * »ttX* * (15) * rRX# M16) , ’fflX#'* (17) * rflXr * (in) */> 


0094 03 
0 u 0 : 0 4 
G U U b J 5 


00-1:546 
<•/ QUO b G 7 
0 u 9 5 U t J 
° 0 0 U b 0 9 


rJ CotSlO 
° ' GOUbll 

0 0 if b 1 2 

0 00 El 3 
Ou L b 1 4 


0 0 u b i 5 
0 00616 
0Ui:bl7 
0 oub 10 

000519 
0UUS2.0" 
0 OLE 21 
0 G U 2 2 
U J u b 2 3 
000 92 4 
000626 
0 00626“ 
0 U Ij b 2 7 
000526 
0UU529 
G00S30 
0U0531 
"000532" 


323 FORMAT ( ISf FIS.Gr nrn,6) 

wri n-:(Lw*?i9) ■ 

WRITE (LWr 321) 

WRITFU-irfi323) (J»HS210(J) rHS21l(J) rHS21?(J) rHS213(J> rHS214(U) rHS21 
15 ( J) »HS2 16 ( J) » HS2 17 ( J ) »HS218 ( J) r J“1 r NOPAT ) .. 

400 IF (NOP 12-3) 404*404 r 401 

401 v.f: II £ ( LW » 441 ) 

WRITE (LV.9 443) 

WRITE* LWr 4 45) ( JrRAFK ( J) r THETR * J) r J=1 rNODAT) 

441 FORMA V ( ///2X r * RADIAL FORCE PARAMETER RAFK AND FORCE VECTOR ANGLE T 
1 MFTA MEASURED COUNTER-CLOCKWISE WHEN LOOKING FROM SUCTION 1 / 30Xr 

2 * TUl T A = 0" At" INSTRUMENTATION STATION 34*//) 

443 FORMAT ( 2X # * DATA * r OX r *RAFK * r 13X r * THETA * /2X r ♦ POINT* r7Xr * 14**2* rl4Xr 

1 * DEG * / ) 

44 b FORMAT < IS r F 15 . 6 r F 1 6 . 2 ) 

404 CONTINUE 

331 FORMAT (///2Xf 'DIFFUSION HOUSING - SECOND STAGE*//) 

“333 FORMAT ( 2X > ’DATA* r 3X t 'NORM DIF'F DISCH MR AN * * 2X r * HEAD LOSS COFFF*>3 
IX r 1 ML. AD LOSS COE FF ' r 2X r M IEAD LOSS CORFF*) 

335 FORMAT ( 2Xr *POINT* OXr 'STAT HD FT/RPM* + 2 ’> 4X r ♦ HOIJSG _ ONE-DIM * r 3X r 
1 * D I F F ONE DIM* r4X# 'VOLUTE ONF“DlM»/> 

337 FORMAT ( 1 5 * E20 • 4 f 3F16* 4 ) , 

_ WRITE (LWf 331) __ _ 

WRITE (LW 1 333) " ' ” 

WRITE (LW 9 335) i 

WRITE (LWr 337) ( Jr HSDFM ( J) # HCDHC ( J) r HCDFC ( J) 'HCVOL ( J)jU=l rNODAT) 

GO TO 520 ' 

990 WRITE (LWr 3) 

STOf^ 

END' 





J RA f MR# 1 #720*4 Ob * 4 9930 


GUilKOUTINE "RATHR" 

DIMENSION PSICC10) >PS ISdO) 

COMMON J#THET(10>rPSI(lfl)rB?TH ».DI21^I22fNOPt t NSJt 

1TMETR<30) * DTHET (18) »EFHOT ( 30) #PMOT (30) *PSIM?.(30) #PO* 

IF(NST-l) 80*80*90 

_ 80 012 = 0121 — , - - 

GO TO OS 
90 012 = 0122 

SKX = 0 " ~~ 

STHET = 0 

00 102 I=1#N0PI . — -- ■ 

'* STHn = STHE.T + OTHETd) 

PSIS(I) - PSI(I> * SIN (THET ( I > ) +DI2*R2TH + SIM0THF:T ( 1 5 
p S IC(I) = PSI(T) * C0S(THET(I.)..Ltni2*O?TM*STN(nTMET{I) 

” SKY = SKY + PSIS(I) 

102 SKX = SKX + PSIC(I) 

SKX = -SKX 

R AFK ( J > = SORT(SKY**2+SKX+*2> 

TTHET = AT AM ( AOS ( SKY /SKX) ) 

I F (SKY) 110*150*315 
115 IF(SKX) 120*155*125 

JL25 THEIK(J) = . 57.296 * TTHET 

GO TO 200 
155 THETK(J) = 90. 

GO TO 200 

”120 TtlETR(J) =~ (3.1417 “ TTHET) * 57.296 
GO TO 200 

1)0 IF (SKX) 130*170*135 . 

1 30 THLIK(J) = 57.296 * (TTHET + 3*1417) 

GO TO 200 

_170 THETR(J) = 270.^ — 

GO TO 200 

135 THETR(J) = <6.2834 - TTHET) * 57.296 

“ISO IK (SKX) 140* 160* 14 if - 
140 TilETR(J) = 180 • 

GO TO 200 - • ' 

160 TMtTKU) '= 0 
GO TO 200 

14 5 THETR(J)._.=L 0 

-"200 RETURN 
END 


END, CUR 
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V .> 


DATE i)9-t’i’i/i 


- N'fRVA AIR- TEST 

PERFORMANCE OAT \ 


TEST VO, 


oy 


CONSTANTS 


NOZZLE COEFFICIENT, CNOZ 
NOTZLL OTA, ONOZ 

. OISC-'AWr.K LINE CIA, . 0 0 L 

B L f r 0 Owrc-v c r p 0 r f f , c 0 R S F 
SLEED rv:r a P E a , *BL 
._C*AG TC«CUC, T C 3 R G 


.9*70 
2,1 in 

4 . 7?5 
.6777 
'.73b 
b.000 


A * * 

50 IN 

SOI N 

it *t Or 

*» 0 T *4 

INLB- ---- 


IMPELLER FIRST STAGE 


impeller second STAGE 


~ | 


£: 

j: 


o : s c w a 


?r.r area blocked, 

*GE 0 I A c l ' T f R , P ! 1 


LaByRJNTh 

Cf 

d : s c h a - r. f 

LABYRINTH 

: ‘.OL.f: R 


COEFFICH ?:T, 

blades, /pi 
.blade ANGLE, 

Fin- AREA, A I 
NLM TIP 01 A, 


AI2S 

14. BOD 

SQI* 

discharge 

AREA BLOCKED, AI22 

IS. 700 

Sfl X N 

? 

1F.9.VT 

IN 

0I3CK/RGE 

DIAMETER, 0122 

' : P„7b0 

IN 


* ^ n ** m 


l aoyri nth 

COEFFICIENT, . CLAB2 

f> a a 

* * 

U.AOI 

fl .0 

* A 

NUMBS t rjp 

BLADES, Z?2 

a,0 

• • <* ♦ 

BET21 

30. ci on 

DFG 

D I S C H A P G E 

BLADE ANGLE, BET22 

25.0W0 

DEG 

,H1 

. 1?3 

COIN 

... LABYRINTH 

FLOW AREA, ALB 2 — 

,1?0. 

...SCIN. 

OlllT 

7.000 

in' 

INLET TIP 

DIAMETER, 0I2.1T 

6.343 

IN • 

o : v i h 

2.740 

IN 

INLET HUB 

DIAMETER, DI21H 

4.600 

. IN 





..WIDTH, RADIAL T*R RUST , 32TK 

-1.30 3- 

-IN 


4, CHIP. SO IN 

6.900 SQ’tM 
20. OLD . SO I N.. 


; t r inlet mu a o i a , 


c R 0 S F 0 V F R a PE A, ACROI 
CROSS 'V?P AREA, A C R03 
DIFFUSER 0 ISC MARGE AREA..ADFD. 


CALCULATED CONSTANTS 


VELOCITY OF APPROACH FACTOR, FLOW NOZZLE, VLAP 


AOSUuT humidity, AHUM 
MIXTURE DENSITY, ROMIX 
SPECIFIC MEAT CP 
. SPECIFIC HEAT CV .. .. 
GiS CONSTANT, RH I X 

molecular height, whol 


HOUSING 


CROSSOVER AREA, ACR02 5.400 SCIN 

CROSSOVER AREA, ACR04 8.100’ SQIN 

_ 0 IFF. t I S CHARGE. . FLOW . ANGLE , - BOFD 14.330— OEG— 




1,0205 ** 

.... .00 !><? - . - • • • 
.07P:J LB/FT**3 
,24M9 

- .i7:v 

5 3 * 0 b 7 
29.142U 


BTU/LB/DF.G 

. nTU/LB/DKG 

FTLB/L5/0EG 


inlet CONDITION 
TORY » 8b, 00 


FLOW NOZZLE EXPANSION FACTOR 


T w E T .. 9 . 67.00 


PEL HUMIDITY 9 -.37 I'WET . 9 ,607....JNHG 


DATA 


INLET TEMPERATURE. 

(M r r> r 


AMBIENT PRESSURE 


-WEIGHT DENSITY 

>> f fi/r.Li?? 


YANOZ 


T »J l( /* 









1 

79.70C 

. 29, one . - 

2 

79. PRO 

? 9 . « "t ?. 

3 

7 9,e."n 

79.350 

4 

0 0 , 0 1 " 0 * 

29 , nso 

5 

R - 1 , ! 9 7 

7 9 , H ' f 

6 

H 0 . 4 7 C 

2 6 . R s i.l 

7 

H. 1,5 I'll 

. . ? 9 . M f > 0 . «... 

R 

'13.692 

2 9 . R S 11 

9 

Hi’ ,600 

7 9 . n 3 0 


■ 14.63! — 
U>61 
14. Mi 
.14,661 - 

14.661 
1 4 , 6 o 1 

1 4. Ml - 
14,601 

14.661 


*0730 . 

.0733 

.0730 

. 0737 .. 

.0737 

.0737 

.0737 

.0737 

*3737 


-, 97389 - 
♦ 9 7 S ft 7 
*53477 
-*90930 ■ 
,99294 
’*99 4 60 
- ,9 9156 5 
9 99793 
.95930 


P'JHP 0?3C U ARGE CONDITION. 


ATA 

temperature 

stat PRESSURE 

WEIGHT DENSITY 

- VOLUMETRIC- 

FLOW RATE 

■ WEIGHT. FLOW 

- BLEED PLOW — 

OINT 

DEG r 

PSIA 

13 /CUFT 

CUFT /3 

OPM 

L 3 /S 

PERCENT 

* 

97.070 

.. ... ... 15.443 . 

. - .7753 -I. 

7.11 37 

3193 . 105 — 

',5351 — 

• . 3,4315 — 

7 

97.703 

15.799 

. 276 1 ■ 

6 . 2 JV 6 

2620.717 

.4633 

4.3546 

3 

OH, 94 ? 

16.096 

. 770 ? 

5.5701 

2480.724 

,4323 

5,4557 

4 ... . 

173.570 .. 

15.372 . 

,0793 

4 '. 5 311 4 

2 tfrtl. 3 M.~~ 

... ., 3579 -— 

7,0733 

.3 

1 '. 1 2 . 1140 

16,569 

• 700 1 

J.S 7 R .9 

1740,064 

. 313(5 

a , 4 1 p o 

6 

173 . 0/7 

16 , 67 / 

.0403 

j . 4 3 n 4 

15 - 13,236 

,2765 * 

10. 1932 

7 . 

104 , 500 .. .. 

1 6.746 ... 

. 00 06 ..-.. 

3 , 76 1 0 

1373.655 — 

.7466 

- 11 * 444 * - 

n 

‘ ! 7 3.6 77 

16 . M 2 

.061 

2.77 *1 7 

1 U 7 0 . 949 

,1642 

1 S.PD 72 

9 

17 b. 2^2 

15 . P .6 9 

.0009 

' 1.5703 

705.093 

.1272 

2 2 , 7 D i 3 


.:nt£R3*ace condition _ 


T> A T A 

TEMPERATURE... 
DEG F 

..TOT PRESSURE 

P $ I A (RKR 01 AT 

.r 

-at prfssurp 

WEIGHT DENSITY 

FLOW 

RATE ' . . . 


P Q * % * 

PSTA 

LE/CUFT 

CUPT /3 

GPM 

jj'.; 

“ ♦ 

a n 3 5 0 

15 . 147 ? 

1 

i . 0 9 W 1 

0 7 4 8 

„ 7 . 415 .. 

7370 T 1 FT 


2 

R R , / 0 0 

15 . 30 tf 6 

1 

5,2644 

>756 

6.690 

2990.330 

{C 

3 

p 9 , 3 2 0 

15.4346 


1.4053 

, 076 ? 

5.907 , 

2687.072 


< 

0 -* 2 C? 

15.5644 

1 

i 


, pi 7 * 7 

5.135 

9 7 n 4 , ft 7 1 

■f 

3 

91 [oOO 

15.6506 

>.6430 

*7771 

4,367 

I 960] 007 

t- 

6 

91,700 

15.7073 


t .6944 

>4773 

3.945 

1770,019 , 


7 

9 ? ,!»U 0 „ __ 

15.7374 

* 

i , 7 7 7 Ci : 

>7 77 , 

3.555 

1595,622 

: r 

3 

. 93. 100 

15 >M 9 

1 

>.7956 

.7776 

2,7 47 

1233.159 


9 

03,400 

15,8313 

l 1 

5.6262 

• y 7 7 7 

2.013 

902,181 

f 


.... . 3 'i^ . 0 VI? ALL PERFORMANCE- 


.DATA 
? 0 J\T 


SPEED . PRES3URE TEMP RXSE-DEO F. .. 

R* ,fi PATIO ACTUAL ISFNTR 


69^6. C ... .. .1.065 17.300 

7: , 1 .‘0,0 !.'*70 17.9(151 

I .790 19.100 

•'* * ri "* , .1 ! 1 1 7 7 2 * S 7 '* 


HEAD RISE- 
I3ENTR FT 


R,.?92. ..-1554,35 
11.757 2203.93 

1 A . M -3 2 7 .1 9 . 4 4 

17.729 3229,71 


-HI3/N**8 

FT/P PM* *2 

',3176-704.. 
.4 4 c. 0-17 4 
■ 5 *■■ 7-04 


Q/N'— 

tJPM/RPM 

_.._.4567. 

.4030 

.3643 

.2974 


..ETA-TEHP- 


.4712 

.6427 

,7446 

,6116 


-170 ROUE. T_ 

IN L 3 


.70.966. 

27.146 

76.029 

73 . 977 . 


_NQRrt_TCR2UE~7~ 

FT**4/RPtt**2 


*654!NGfl. 

.5656-76 
, MrtlrtV) ■ 







6 /V3.0 

7 7.V1.0 

n ? ' r r \ 

9 


1.133 22.600 
1.143-..L. 24,003 
1,153 25.000 
1.151 25. GOO 


20'.t?7 3773. vH 

30.7*9 3093,32 

7) * B <1 3 4094,69 

25 .396 4104*65 


,7 V9.V04 
,7943-04.. 
* 0 3 4 5 -0*4 
, 6 3 4 6-04 


.2204 
-•19 62 
* 1 4 3 7 
.1006 


• 9474 
.— •31.55- 

• 01«1 
.7630 


S PI. 154 
.19,2133 . 
15.223 
11*113 


,4257-25 

.,4i5Si*Cfi- 

,3154-36 

.2325-C6 


-EFFICIENCY DERIVED FROM MEASURED SHAFT TORDUE AND MOTOR POWER-... 


•REHEAT- F ACTOR - 


MEASURED TORDUE- 
IN IB 


. NORM TORQUE- 
FT**4/RPM**2 


« 

27.0000- 

— — . , 6 7 0 !i - 0 6 

u 

27.5000 

’,6078-06 

1 

27.7000 

.591 1-06 


•5 a t fln 

tj »*. o 7 r o 6 

5 

t O i 1 * w w 

23,6000 

. 5017-06 

6 

22,37 00 

,4710-06 

7 - - 

21,3000- 

, 4 455-06 

8 

1 9 ,0000 

*3905-06 

9 

15,602k) 

, 3267-06 


EFFICIENCY- 

EFS 


MOTOR POWER — EFFICIENCY- 
WATT EFMOT 


CSf.Pfl 

f!003 
pe-pH 
00 3 0 — 
o 4 n o 
rok:? 

O-i o o — 
00.0 0 
00530 


(HIS1*HIS2)/HIS0V 

1,07273 

1,03109 

1,37133 

1 .07084 

l.tfBfSG 

1,07091 

1,3 7 373 
1,00377 


FIRST STAGE PERFORMANCE 


PRESSURE- HEAD RISE- - - HIS/N**? 0/N NET- 

RATIO I SEN T R FT FT/RPM* * ? CPM/RPK. 


1,0375 
1,0436 
1,0523 
1 ,0616 
! ,7*fM 
1.0714 
1 ,v'734 
1 ,0778 


970.74 
J 729.73 

1482.75 

1726.76 
1004 . 05 
1094,87 
2051,20 
2171.19 


1,0799 2226.02 


, ! .39 0-0 4 
,2510-04 
.3024-04 
.*3575-04 
, 3*00-04 
,4060-04 
. , 4 18 5-74 
,442f>~04 
, 4 5 2 0 <» F 4 


DELTA -T- ETA TE MP — LAB FLOW PHIC25 

DEG F PERCENT 


.. 0.6 50- 
fi.OMO 
9,500 
. 13,200- 
tf* .900 
1 1.300 
.i2,0O‘3. 


.6773 

.7371 

,P3?6 

,0731 

,9373 
,0417 
.9119 — 
.9266 
.5277 


-- 1*731 
1-007 
2.112 
—.2 .SOtf 
2.974 
3.359 
-..3.768 
5*032 
7,306 


2077- 

.1064 
,1665 
— * 1419- 
.1200 
*1071 
... .0059 
.0722 
.0503 


.SECOND STAGE PERFORMANCE 


HEAD RISE. 
tSENTR FT 

629,86 

970.3V 

1260*34 

1575,65 

16.70,05 

1700.26 

. 1 Mb, fib 

1926.73 

1881,78 


HIS/N**J? .. 
f?7/«PM**2 

*1287-04 

,1997-04 
,757 1 -04 
_ *, 3 3 7 4 1. 0 4 
,3425-04 
,3630-04 
,3766-04 
,3926-74 
‘,3026-34 


Q/N NET DELTA. JL 

GPM/RPH DEG F 


ETA TEMP— .XA5 FLOW PHI (2) . 

PERCENT . 


„P 31 TOT REC IRC- 

PERCENT 


_ .2974 10,300 

,24 07 li.UOyl 

.7704 

. 1962 1.2*003 

r ‘ 4 5 7 12,500 

.1006 12.000 


...38S4._ 
,5799 
.7003 
.,7798 - 
.0 1-38 
,0404 
. ,8223. . . 
.8222 
.7043 


.*1879... 

,2915 6,0410 

,3753 7,4497 

, 4408 9,5356 

.5020 11,4817 

*5390 13,7140 

,5493 ... .1 5 , 4523 
.5733 -24.2156 

,5586 33,7733 







^-$026* 

sc-y <vw • 

qiwr/r • 

■ yii-l/'dT* 
/f-wM/*" 
Ck«-i£iy£*- 
Su-SW/S*- 

2**WdM/ij 30Ir 
0V3ri H i S hbiiH 







iaait f iaffi /HVii X&iit&i LiZ±i+ Jl ,)-< -1 ,-ttiMtSi-m.iAii — 


■.' ■ . X l „ . <f ; .; > ■ « ■ : . ■ 


\ 


% OuOU 

.9 ecu 

. On 4 0 
. U 09 J - 

« 1 1 1 ) f I tl 
. fj;»')!i 

• U ' J '10 
. nuon 

• .JUUII 


• COHO 

.0000 

• OOOU 
.0000 . 
.onoo 

• Of) 0 0 

• 0(100 
.0000 
. OGoO 


.... *0000 
.0000 
,uo no 
..,. .0000 - 
. uoon 
. 0 0 0 0 
_ •0000 
. UllOO 
.0000 


. • ocoo .„ 

• ooon 

• noon 
... . 0000 - 

. 0 f: 00 
, of no 
.0000 . 

• onoo 

• oonn 


-*1364- 
.0951 
.0607 
-.04 36- 
.0375 
. 000 A 
.. 0(10 6 

• 0 GAS 

• ( l°°l 


\ ' 


" f 
\ 

1 


. CIRCUHFLRCn f I AL PRESSURE DlSTRlUUTIOfJ. - SECOND. .STAG£..Itf PF.LLEft 


L-. --UATA 

IIORv AVG 

RATIO OF 

STATIC HEAD 

TO AVERAGE STATIC.: 

HEAD RISE- 



— 

POINT 

S 1 A r I C MEAD 

tl) 

( 2 ) 

{ 3) 

(4) 

( 5 ) 

( 6 ) 

(7) 

L . _ fc . i 

. 3476-04 

.965765 

.993774 . 

. 993774 _ 

...993774. 

_1. 0f.‘ 5703- 

-1.009704— 

1.005763. 

2 

.4346-04 

.992204 

.996441 

• 90S 4 4 1 

.990590 

l.Ot 1764 

1.004909 

1 .004^09 

j 

.502.6-04 

.991109 

.996446 

,°0644S 

.90011? 

.o*: 91 12 

1.C04444 

1 .004444 

! _ 4 

• 0.174-04 

. . .9900*110 

.9969'} 9 .. 

• 996949 

.-..999230- 

-1.0 Cl 526 

- 1 . C 03015 — 

1.003015 

i i> 

v .6472-04 

.991623 

.9966(60 

.997710 

*090771 

1 .0. *1033 

1 • 003894 

1 .003094 

l 

o 

• o /utl — 0 4 

.991064 

.996946 

.90694 6 

.990910 

5 .000073 

1.004799 

1 • 0 04799 

. 7 . 

• t j‘J 7i »— 0 4 

. ...993020 

_ . .996026 

1.000636 ... 

.-.996222- 

— 1 • 0 ‘ ' 2 5 3 0 . 

-.1*0 044 4 0.- 

1.002530 

ri 

. 73S3-0 4 

.yao;»3S 

.996614 

1.020133 

.991426 

. fl ‘.'6f5l4 

1.016341 

.001426 

9 

.7490-04 

.904031 

• 9MS7(J7 

.906797 

.977007 

.9^2005 

1.024334 

1.010332 


( 0 ) 




1 . 00490 ^ 1 ,001754 

1. 007111 1.001 77ft 

,1.00610? 1 *001526- 

1.0^30^4 1. 001433 

1.004799 1. 000473 

..1,002536 — 1.00063S- 

*0060 1.4 5.0 0 6004 

1.013064 1.026053 


RAOIAL FORCE PARAMETER RAF* AND FORCE. VECTOR ANGLE THETA. MEASURED COUNTER-CLOCKWISE WHEN LOOK ING_.EROM...SUCT IOM- 

THETA = 0 AT INSTRUMENTATION STATION 34 


DATA 

ho in r 

1 

2 

.. 3 

4 

5 


RAFK 

THETA 

IN**2 

DEG 

* 1 66309 

46.4 3 

.0^7920 

40.74 

.092223 

54.69 

.067471 

4 4.91 

• 002236 

40.19 

•0bu49d . 

44 .24 

• 0f»434h 

34.06 

.075365 

321.0ft 

. 3411201 

. 79.99 

HOUSING - 

SECOND STAGE 


UATA NORM DIFF DlSCH MEAN 
POINT STAT HO FT /RPM**? 


• r.t>M7-G5 
. 1 642-04 
.2141-04 

• 2 7u 1 -04 


HEAD LOSS COFFF 
HOUSG ONE-DIM 

• 1301 
.0770 
.0402 
.0270 


head loss coeff head loss coeff 

DIFF ONE DIM VOLUTF ONE-DIM 


.1277 
.0624 
• 0325 
.0141 


• 0024 

• 01 47 
.0077 
.0137 
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OVERALL PERFORMANCE OF A TWO-STAGE LIQUID HYDROGEN PUMP 


J. J. Brunner 
18 April 1972 


COMPUTER PROGRAM 

OVERALL PERFORMANCE OF A TWO- STAGE LIQUID HYDROGEN PUMP 
I. I NTRODUCTION 

This program computes overall performance parameters of a two- 
stage liquid hydrogen pump. Inlet conditions and stage performance 
parameters in normalized form are input. Print-out includes overall 
isentropic head, discharge pressure, reheat factor, efficiency and 
power. This program makes extensive use of the liquid hydrogen property 
deck prepared from Reference 1. 

This program was used primarily for the computation of ‘overall 
performance predictions for the NERVA two-stage pump. The undesired 
but not too severe scatter in reheat factors obtained resulted from 
inadequacies in the fluid property deck. 


II. BASIC CALCULATIONS 

The stage discharge pressure is determined from the specified 
isentropic head rise Ah and the inlet entropy S q defined by inlet 
temperature To and inlet pressure Po. In this program the stage discharge 
pressure is computed by subroutine PRETE. In PRETE, an initial pressure 
is first calculated using the fluid density at the inlet. The final 
pressure is obtained by iteration. Increments of pressure 
determined from the difference in entropies S^-S^ and the slope of the 




line of constant pressure (see diagram below) are added to the initial 
pressure. The solution is satisfactory when: 

S — S . < Specified Tolerance 

ox — ~ 



The reheat factor herein defined as the ratio of the sum of the isentropic 
stage heads to the overall isentropic head rise is: 

E Ah, 

is, stage - _ 

y = -g-fi 5 — > 1.0 

is, overall 


Reference 1 - NBS Report No. 9288 Cryogenic Engineering Laboratory 
National Bureau of Standards, Boulder, Colorado, 

18 August 1967 


2 




After the end point 2 1 is determined (refer to above diagram), the 
overall isentropic head or the pump ideal head rise is obtained using 
the function HFUN, This function determines the enthalpy at point 3 
from the discharge pressure at point 2 and the inlet entropy S q by 
an iterative method similar to that of subroutine PRETE, 

III. FLUID PROPERTY FUNCTIONS 

The following liquid hydrogen property functions are used in 
the program: 

PTENTH looks up enthalpy from pressure and temperature 

PTENTR looks up entropy from pressure and temperature 

PHTEMP looks up temperature from pressure and enthalpy 

PHDENS looks up density from pressure and enthalpy 

A complete program listing and a sample print-out is presented on 
following pages. 
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NOMENCLATURE INPUT 


SYMBOL 

DESCRIPTION 

UNITS 

FORMAT 

PO 

Inlet Pressure- 

psia 

F 

TO 

Inlet Temperature 

DEGR 

F* 

XN 

Rotational Speed 

RPM 

F 

NO ST 

Number of Stages 

- 

14 

NP 

Number of Data Points (Q/N) 

- 

14 

First and 

Second Stage Parameters: 



QN 

Flow Parameter Q/N 

GPM/RPM 

F 

HNSQ 

Normalized Head H/N^ 

FT/ (RPM) 2 

E 

ETA 

Efficiency 

- 

F 


5 
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25 SEP 71 


A X C H 

'JN’/aC m3 FORTRAN V LEVEL 2226 0313 F5013S 
THIS COMPILATION was OONE ON 29 SEP 71 AT 12*59:31 


12:59:01,313 


SUBROUTINE PRETE ENTRY POINT 303105 

-STORAGE USED (BLOCK, NAME, LENGTH) - - 


0001 *CODE 300126 

05130 *DA?4 - 330332 

0002 #3LANK 000000 


EXTERNAL REFERENCES (BLOCK, NAME 5 


0333 

3304 

03C5 

0306 

0007 

.0010 


PHTEMP 
PTE N'T R 

NWDUS 

NI025 
N3T0PS 
NERR3S 


STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE. RELATIVE LOCATION, NAME) 


3*10 1 - - 000007 10L 

3031 303050 4 0 L 

0333 R 330301 P 
0333 R 0 330 3 7 SLOPE - 


.... 0000 . -000013 100 F 0001 

0001 000063 53L 0300 

0023 R 030000 PHTEMP 0304 

. 23 00 R 200003 T - - 


-002072-201 ■ — 

I 003000 COUNT 
R 330203 PTENTR 


.. 0^31 332027 -25L- 

0003 R 332002 DP 
0233 R 300034 Q 


-0001 002243— 3C L- 

2302 R 023206 DS 
3203 R 030235 S 


00101 

-03133- 

03134 


1 * 

2 * — 

3 * 


SUBROUTINE PRETE ( HI , P I , T I , S3 , SI) 
INTEGER COUNT 


i 


100 FORMAT ( /2X , * NO SOLUTION IN PRETE*) 


00105 

4* 

COUNT a i 

03106- 

5* 

P B PI* 20, 

031 '47 

6* 

DP « » • PI 

30110 . 

7* 

10 T « PHTEMPCP 

— 33 1 1 1 — 

8* 

S a PTENTR ( P 

23112 

9 * 

DS a SI - S 

03113 

10* 

IF (OS) 25,20 


-j 33115 11*— 25 -SLOPE a DP 7 DS - - 

| 03117 12* IF ( AfiS(SI/S0-l .)-l ,E« 

1 03122 13* 30 I F (COUNT - 15) 42,50i 

I 00125 14* 40 COUNT a COUNT . * 1 

I 33126 1 5* SI «, 3 

j • 03127 . 16* OP » SLOPE * (SI*S0) 

| 33133 17* P # P + DP 

1. 02131 18* GO TO 12 

?) 33132 19* 50 WRITEC 6,1003 

j' .... _ 22134 23* ...-STOP 

I 03135 21 * 20 PI « P’ 

•j 02136 * 22* ' TI * T 

33137 23* RETURN 


05) 

50 


20,20.33 


— £ 



■a ea o « 


HffI(N| a . ■ 29 SEP 71 !2?59J03.«38 

JS'tVAC 1103 r CRTR AN V LEVEL ' > 2206 0013 P5fll33~. - : 

TH T S COMPILATION WAS DONE ON 29 SEP 71 AT I2a59*20 

J ‘ ; 

FUNCTION HFUN ENTRY POINT 000105 

STORAGE USED -(BLOCK, NAME, LENGTH! - 

0031 *COD£ 000123 

0000 * 0 A T A 000333 

0OC2 * BLANK 300000 ' 


EXTERNAL REFERENCES (BLOCK , NAME 3 


0003 PTENTR 
C034 PTENTH 

.3005 NWOUS 

0305 NI02S 
0007 NSTOPS 

3010 NERK3S- ~ — 


’storage ASSIGNMENT FOR VARIABLES. (BLOCK, 

030013 1 CJF 1- 3001 000042-- 

0001 000014 53L 2P01 223025 

0 r, O0 R 030003 Hr 'JN 2324 R 233232 

03H0 R.. 90033 5 S22 33 22 R 302 023 


TYPE, RELATIVE LOCATION, NAME) 

1 C0L 333 1 3 33747-1521 2231 

63L 2003 I 000231 COUNT 0300 

P TENTH 3033 R 23080* PTENTR 0338 


323352-1501 :0321 200071— 80 0L- 

R 030006 OS 0030 R 000004 DT 

R 307337 SLOPE 0033 R 030002 S21 



30! 31 
2103- 
0104 
3103 
i *6 . 
03 1 27 
7 0 t 1 C 


1* 

2 * 

3 * 
4* 

- 5* 

6 * 

7* 


tfcli 1 

22112 

3 - 

9* 

GO 1 1 3 

12* 

C fllfi 

11* 

00 117 

12* 

0C 122 

13* 

CD 123 — . 

-14* 

2C 126 

15* 

GO 127 

15* 

2C lo3 

17*- 

GO 131 

18* 

?: 132 

19* 

C; 134 .... 

.20* 

C5:U5 

21 * 

Oil 136 

22* 

V :? 1 3 7 

23* 


FUNCTION HFUN(P2,Tl,Sn 

. INTEGER COUNT - - - 

10 FORMAT ( /2X , i NO SOLUTION OR S2 « SI 
COUNT a i 

S21 s PTENTR ( P2, T 1 ) 

T » T1 + 0*5 
DT « T-Tl- 

50-S22 * PTENTR ( P2, T 3 

DS « S 22 - 321 
IF C 035 68,280,63 

62 -SLOPE a OT/DS --- - 

x F c A BSC 1 .-322/S13-1 *E*05) 220,200,120 

100 IF ( COUNT**30 3 152,160,150 

150 COUNT a COUNT * 1- — 

S21 » S 22 

DT * 3L0?E*(Sl-$28) 

-T o T*DT 

ro° 

200 HFUN > PTENTH(P2,T3 
RETURN 
END 


IN HFUN*) 





\) 


^IF 3 ?.MAI% 

UNI VAC Ii: 33 FORTRAN V LEV£U 22 D & 3318 F 53 IRS 

mis compilation *as done on 29 sep 7i at 12159102 


25 SEP 7 i 12;59;02.353 


MAIN PROGRAM 

•STORAGE USED (BLOCK, NAME, LENGTH) 


0231 *CCDE 030773 

-3000 ...... *OATA -- 001760 

0032 *8LANK 030000 


EXTERNAL REFERENCES (BLOCK. NAME) 


0303 
U 0 iV. 
00 33 - 
G306 
3007 
3013 . 

sail 
00 12 
0313 
0014 
0 313 


PTENTH 
PTFNTR 
... PhDENS 
PmTEMP 
PRETE 
--HFUN -- 
N R f) U % 

N 1025 
--NI01S - 
NWOUS 
NS T OP S 


..STORAGE. ASSIGNMENT FOR VARIABLES ..(BLOCK, ..TYPE*- RELATIVE-LOCATION#.. NAME). 
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DIMENSION D H I F ( 30 3 » HN $ Q ( 33 ) f $ I ( 30 5 ,£TA(335,PE(30) ,TE(30)wH£(30) , 
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di • 0u ■ 

| NX ♦ ZZ70PS • 03 HO 

*82/1 ■ •-(0TM*BH'0d)SN3OH(| * 0OH8"“ 

l8J, f 0d)diNsid » OS 
C0i f 0d5HXN3Xd « 0H 

— ■~dN i ASON # NX , 0i*0d (y'KDSAltiM “ 

C/'NU3XI«M 

: r 5S # Kl)3iI«M *• 

! i U'4*U3iId« 

cwn # i»r> cnvi3 f crJogNH* cr ) no 3 cc^Tiovaa 

- i -- - 022'666'66<i C0d)il 

i dN * ISON ■ win 

dN'ASON'NX'Oi'fcd UliO)CV3H 
CZ*513'Xo)iVUH0 


022 


002 
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/y 

s? 

1? 


(/|C**AJ/9“li *X9' l a 030/9 1/1X9 I •%*' t91/nifcl I 'X9 UV*HOJ 
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c 1 3noaox w«on i *x 5 * \ anoaox I'xf' 1 a3M0d; 'xc* iAOnsi 01*33 1 *xe*i 

iiV3H3ai # X9*J0Si'XS*r>*N/SiHt # X£' i0y 3H XN2S 1 t 'X?' iN/fci 'XCnxVhdOd z£ 

■- ' l// 1 33NVWd0dH3d 11VH3A0 i *X2//) AVKhCd 5£“ 

C//i3‘JVXS GNO'JIS i *X2//) XVWfcOd 12 
(/£ , SJd£*£*9ld*E*$*Jd*E*2ld*E*s;lji)lVhH0d / <1 
C/£'S132'£*& ld*£*Sld*£:'2 la *£*5ld) HHH03 G2~ 
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d1YHXN3i 'X9* i3$Id Ad1fHXN3t 'X£* I 3 S I b AdlYHXNdj 'XS'iN/Oi *X0i)XVWdC3 6l 
t/i S/91 JLOCJ.v.1 'X9' tE^id/bli *XS* ih/dVfUHi 'X61 
* iSl/fU9 l *XZ* l9VfU6*9HGl 'XS* rdl/rus 'alHOl'XP'iWdh/WdOi'X/JAVIriaOd L\ 

C i2*JdVH0Siai * X 5 * I 3 1 

-SSYHOSia* *X9 * \ 3SaVHOSIOl *X0l * \ 170X3? * *XZ* l3IdOUiN3Sl I 'X02//UVHdO3 91 * 

C i AXISN30 i # X9 * i 39 AriOtf iN 3 ( ' X 7 * i 3H Al 
d1?HXN3j 'XS* i3$Id Ad1?HXN3i 'XC' l3SId AdlVH - N3 t ' XS - \ N/0 i * XOl ) X VHH03 91 

C/ U: 030 i # X/J* i V I 5 d l 1 

< xs*iO3a/e3/nX0j # x/ , iX3j'xaiM2^»wdd/i3i , xp’*iwdii/wdOi r xx;uvhao3 7l 

U3X dh3X i * X£ * l 3d 38flSS3dd i ' X5 1 

'tX$l'X8'l3SXtf QV3Hi *X» f t V A. 3 I *X6' |2**N/Hl -XZ' tN/Ol # X01 |)AVHd03 ?A - 

C//I3SVXS XSdld i 'X2//J3 XVWB03 11 
CSli*0llM'5l3'C*S132i)XVhaO3 8 

— - i C/lHddl'Xe'iW 030 # 0ii *XS # iVlSd ' 6d i 4 X9 lU VKdOd / “ 

UlSiNIOd 30 Onj * l Xt'* »S20l 

ViS 30 ON l * X S ' I NX Q33dS > *XS* < 3.-jniVaHdW3X l # X^ ; i3anS53ddl f x9 jUYWdOd 9 

- - - - • C/iNOlilONOO NOIXOHS l # xe PXYWbOd Q — 

(^■QId'?*Bl3 # ^01d-)XVwaod £ 
CSXSM*0ld*C*0ld3 iUVWMOd Z 

- - -- - C///l3DNVWH03H3d 3‘JVis NO 03SV9 '3DNYW301 “ 

dd3d 11Vd3A0 I *X/£/l dW.ld N300«QAH 010021 BOViSlilnw I * XS V 0 I 1 i ) XVHHQ3 1 

U # 013*XdU’fHHO3 001 

- — - (5*5l3 # Xd) AVhd03 01 " 

9 « M 1 
\ 5“3l 

- C 2£)N0XH # C0C?O,5S' C0£) PHO * C0£3 0 r HO * CC£5N0* (W£J XOOM ' (0£ ) dH* CG£J 301*02 

' (oejNoaoi 1 coacfcox* cw£) ao; 13* ;w£) aoih' (0Ci3OHd # cetnsi 


♦ 19 

Z 12C3 

♦ 09- 

112C0- 

♦ 69 

C12C3 

♦ 89 

ZC2C3 

•ZS 

SC2C5 

♦ 93 

' ‘ 502CC 

♦39 

VC2C0 

♦P'S 

— • SZ1C0- 

♦ £5 

czica 

♦ 23 

U ICS 

♦ IS 

Z91C0 

♦ 09 

&91C0 

♦ 6? 

SSTC3 

♦ S? 

- 25100 

♦zt^ 

15120 

♦ 9fr 

271CC 

♦ 517 

17120 

♦ 17 V 

• Erica 

♦£ v 

L £ 1 C i) 

+ Zv 

9~£ 1 L v 

♦U 

£ C 1 C 0 

♦ 07 

peieo 

' *6£ 

7 r i c a 

*CC 

EC1GC 

♦X£ 

e r ; c. c 

♦ V£ 

2 :. ) k- C 

♦5£ 

15 1G0 

♦ 7£ 

C £ 1 C 2 

♦ £ £ 

Z21C2 

♦ 2£ 

5 i* 1 £ 2 

*1C 

52 12 0 

' ♦CC 

5C1C2 

♦ 62 

7 2 * 0 2 

♦82 

721CC 

♦ Z2 

£ £ ICC 

♦ 52 

£clC0 

♦ 52 

£2 ICO 

♦ 72 

2 2 1 C 0 

♦ £2 

1 2 1 2 E 

• 22 

12100 

♦ 12 

• ■ 021 OS 

• 02 

C21CJ 

♦ 61 

Z1 i23 

♦81 

— ziice 

♦Z 1 

’J911C-3 

♦91 

sues 

•51 

71122 

•71 

tiles 

•El 

£1123 

-•21 

2112 5 

♦ 11 

nice 

♦ Cl 

Cl ICS 

■ *6 

"‘■^zr-icc 

♦ <? 

L C 1 ?. 3 

♦Z 

• Ci'ICC 

♦9 

---■ Si’ 122 

• s 

75102 

♦ 7 

. 1 nice 

*e 

- KSGX 

*2 

12122 



£22 14 ... 63* 1ST » 0 • - 

C0215 64* WRITECLW. 45) 

202*7 53* WRITECLW, 47) 

00221 - 66 * -WRITECLW, 43) H0,S0, RHO0 


00226 

67* 

135 OWIF.(J) s HNSO(J) * X N* * 2 

00227 

68* 

DKIBCJ.) a ONIPC J)/778’.26 

00237.™ 

— 69 * — 

HI « K0 * OH I 8 (35 

00231 

73* 

OP a RH00/144, * DHIF(J) 

00232 

71* 

PI a P0 * DP 

28233 — 

— 72* — 

TI a PHTEMPCPI.HT.QI) 


C0234 73* SI(J) o P7EMTR C PI , 7 1 5 

05235 74* CALL PRETE(HI,PI,TI,S0,SI(J)5 

03235 75* OKB ( J) « OHIB C J 5 /ET A ( J) 

£3237 75* HE(J> a HP * DH8CJ) 

30240 77* PEC J) « PI 

002 41 78* 7ECJ) » PHTEMPCPECJ) .HECJ) ,QE) 

00242 79* 8ECJ) a P7ENTRCPECJ5 » TE ( J) ) 

03243 80* RKOECJ) a PHDENS C PE ( J) , HE C J ) , RLE 5 * 1728 . 

302 44 81* - WCOT(J) a RHCE ( J3 / 4 4 8*.8*XN*QN C J) - 


03245 

82* 


IFCISTM) 113,105,105 

03250 

83* 

105 

IF(J-LIH) 115,123,120 

232 33 

84* 

— no 

XF(J-NP) 125,133,133 - - - 

£0266 

83* 

125 

J * J * 1 

00257 

06* 


GC TO 135 

2 3 " * “* 

. g 7 * 

i 30 

WRTTFfLW.l M - 

<> 4J w v* 
00262 

83* 


WRITECLW, 135 

02254 

89* 


WRITECLW, 145 


0026 5 93* WRITE CLW, 235- - C ON C J ) , HNSQ C J) # ETA C J) , OHIF-C J5 #S I C J) , PE C J) , TE C J 5 

0 02 65 5i* 1 J - 1 # N P V 

20322 92* WRITECLW, 16) 

20334 ....... 33* Ir(NOST*n 140,143,1 45 

033.17 94* 145 w’fi X T E ( L W , 1 5 5 

03311 95* WRITECLW. ?1) 

£3313 9 6* WRITECLW, J>5) C ON C J ) , DHIB C J) , DHB C J 5 * HE C J) , SE t J 5 , RHOE C J3 # J» 1 • NP * 

32326 97* GC TO 147 

£0327 9r* 140 WRITECLW, 19) 

03331 .. 99* - WRITECLW, 175 - - • - - •• 

02333 103* WRITECLW, 275 CQNCJ) .DHXB t J) jDHBCJ) #HECJ 5 #SE< J5 .RKOEt J) #WDOT< J) # J*t 

00333 131* 1 , * P 5 

03347 1 02* GC TO 993 - — : 

20333 103* 147 1ST * 1ST * 1 . ' 

0 0351 1C-4* K$ a 1ST * NP * 1 

.£•2252 - 125* 1 i 5 ■ J = J * 1 

033*33 106* P? a PE CJ-NP5 

00334 127* H0 « H-E (J~MP5 

03255- 103* S7 - a SECJ-NP5 

00336 109* RKO0 = RHOECJ-N?) 

C3757 112* GO TQ 135 

£3363 -111* 120 -WRITECLW. 31 5 

03362 112* WRITECLW, 13) 

30354 1 13* WR I TE C LW , 1 4 ) 

00366 1 14* WRITE CLW, 23) -CQMC J) r HNSQ(J5 , ETA C J3-, OHIF C J) # SI PE U)-rTE C J3-# 

03355 115* IJsKS.LIH) 

C0432 116* WRITE (LW, 16) 

-004 04 117* WRITE (LW, 19) - 

00406 118* • WRITECLW, 17) 

004 iO 119* WRITECLW, 27) C QN ( J ) , DH I 8 C J ) , DHB C J 5 , HE C J ) , SE C J ) * R HOE < J 5 , WOOT ( J 5 , J w K 

fi0 4in — 123* 1S,LIM) 

02424 121* S0 « TS0 



12?* . T'V* TT2 

* 3 4 2 5 ! 2 3 - ■ ■■' - H 3 a T h ? - ■ - - ; ; 

C3427 1?4* DO IS3 Jal.NP 

23432 123* HlOVfJ) a HFUSfPE(J*NP)#T0#S0) 

2343 3-- *125*- • t-30 » PHTEH3JPJ- f J+MP5 •HlOVtJSiOXI)— 

2343 4 127* 5?< 0 C J ) « PTENTRfPEC J*NP) .T303 

23435 12 6* DHI03 « HI0VCJ5 - "3 

23435 — 129* DH I Or C J5 « 0*103 * 778. 2fi 

20437 132* HIONfJ) ® OH ! OF f J 5 /XN** 2 

23443 131* RHrCJ) * COHIF(J) * OH I F ( J*NP ) ) /DHIOF t J ) 

304 4 1-"- 13?* £T AOV ( J ) aOHIOrCJ5/COHlFfJ)/ET4 C J ) *DHI F C J+NP 5 /ETA C J*NP ) ) 

22442 133* HP(J1 «DHIOFCJ3*WDOTtJ3/560./ETAOVCJ5 

32443 134* TOftQ(J) a 650. * H?CJ)/OMEG 

304 4 4 - 135* 150 TORON(J)* TORO ( J5 /XN**2 - f — : 

22445 136* WRITECLW,35) 

03453 137* WRXTEaw.373 

23452 138* WRITECLW.393 • " 

03434 130* WRITE (LW, 41) (QN C J3 # DHIOF CJ5 # HION C J5 . S0O ( J} , RHF C J5 » ETAOV { J} # HP ( J) # 

CO 4 5 4 142* lTOROf J3 »T0R0N(J-3 . J«l#NP3 

03472 141* 932 CONTINUE - - 7~“ - 

£3473 142* GO TO 200 

2 3 4 7 4 143* 939 STOP 

02475 144* END — ““ ~~ 


END OF UNIVAC 1108 FORTRAN V COMPILATION 
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i ! clio hvcj;cgcn pjyp 

bAS ED ON bTAoL PERFORMANCE 


S'b'lT! STAG*: 
(JV: RA'.t P L f - f U ; ’ M A N C L 


T CMP FRATUPE 


NO CF POINTS 


TO* PEG R. 


(!\ T HALPY HO 
CT'J/LP 


ENTROPY SC 
6TU/LD/DEC R 


DENSITY RHOO 
LB /F T**3 


-1^9 *°.9PS 


PI»ST STAGE 


<VN 

<~,P V/ r'DM 


h/N** 2 
FT / PPM * *jt 2 


HEAD R I SE 

F T 


SI 

STU/LB/DEG 


PRESSURE PE 
PS I A 


•TEMP TE 
DEG H 


0 * 3?60E- 04 


.1.3999 630 .60 1 


C . 2SCCE-04 


....... 1 *6998 _ 


ISENTROPJC ACTUAL 

O/N ' t; N T HAL ° Y RISE ENTHALPY RISE 
GPV/RPM Oh IB. BTU/L.B 0HB.BTL/L8 


DI SCH ARGE _ 
ENTHALPY HE 
BTU/LB 


CIS CHARGE 
ENTROPY SE 
BTU/LB/ R 


discharge.. 

DENS IT Y 
LB/ FT * # j 


C/N 

_ r,PM/ spy 


H/N* * 2 
FT/RPM**2 


0.196 0.2F2CE-04 

...0. . 2 29 __ 0 • 2 A 2 0 E- 0 A . 


ETA HEAD RISE 

FT 


SI 

B TU/L8/DEG . 


PRESSURE PE 

PS I A . ..... 


1728.537 

„161A.3:.4_ 


TEMP TE 
. DEG R ... 


0.290 0.272CE-CA 


O/N 

C/'y/ fvpy 


ISENTROP I C 
ENT HAL P Y R I SE 
DH I E« DTU/LB 


AC T LA L 

ENTHALPY R I SE 
D H3 * B TL/L8 


DI SCH ARGE 
E N TH A L °Y HE 
0TU/LQ .. 


DISCHARGE 
ENTROPY SE 
_BTU/LB/H ... 


DISCHARGE 
DENS IT Y 
LB/ET ** 3 


FLDW PA TE 
W DO T L D/S - 


CVFPALL PERFORMANCE 


[SENT HEAD P I SE 
FT 


INLET ENTROPY REHEAT 
CHECK FACTOR 


CVERAlL 
EFF I Ct ■“ NCY 


POWER TURQUE 

HP FT L b 


NORM TOROUE 
FTL b/kPM* *2 


0 . I 96 t‘.C— 0 5 


C .204 jE- 05 
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CROSSOVER PASSAGE DESIGN 



J. J. Brunner 
4-13-72 


COMPUTER PROGRAM 
CROSSOVER PASSAGE DESIGN 

/> 


I. INTRODUCTION 

This program presents a method for determining the passage surface shapes 
of crossover channels employed in multistage pumps. The meridional velocity 
as well as the tangential velocity distribution are prescribed as a function of 
meridional stream line length. Coordinates defining the channel shape along the 
mean line are calculated. Suction and pressure surface velocities are estimated 
from momentum considerations assuming a linear velocity distribution from the 
suction surface to the pressure surface of the passage. 

The method of analysis employed was devised by M. C. Huppert and the 
program was first used to smooth out the crossover passages of the 2nd stage 
NERVA Turbopump discussed in Reference 1. 


II. BASIC EQUATIONS 

The tangential velocity distribution is described in the following way: 



R 1 C ul 


+ [R2 Cu - R1 Cu-,] 
2 1 



(2 - Y n ) 
— . — - — '• 

f 


( 1 ) 


where : 

R1 Cu-j 
R2 Cu 2 
f 
Y 

m 

M 

n 


whirl at inlet of crossover passage 
whirl at exit of crossover passage 
whirl distribution factor 

ratio of passage length to total passage length in 
meridional plane. 

distance along mean line of crossover passage in the 
meridional plane. 

Total length of crossover passage in the meridional plane. 
Exponent to specify whirl distribution (surface loading) 


Reference 1 - Aerojet Nuclear Systems Company, Engineering Operations Report 
N8300R:71-076, NERVA Turbopump Design Report, Volume 1, 
September 1971 


1 


The whirl distribution factor f is plotted in Figure 1 as a function 
of Y for two values of n. 

The geometry of typical pump crossover passages are depicted in 
Figures 2 and 3. 

The meridional velocity distribution is directly input (C on card 2; 
refer to input format). 

The tangential width of the crossover passage A is computed from con- 
tinuity as follows: 



A 

Q 

T1TT7 

m 

where : 

Q 

= 

total flow, ft /s 

B 

s 

meridional width of the crossover passage 

Z 

= 

number of passages 


The angle of the mean streamline of the crossover passage .8 is determined 
from and the value of C u obtained from expression (1). 

C 

tan 8 = ~ 
u u 


The wrap angle of the mean flow surface of the crossover passage is then 
given by: 


m 


180 

n 


M 


/• 


dx 

R tan 8 


and the wrap angles of the passage surfaces are: 


(3) 


2 



Suction Surface 


0 C = 0 
s m 


A 180 
2R n 


Pressure Surface 




180 

li 


Suction and pressure surface velocities on the mean streamline are 


estimated from momentum considerations. 

u u _ Q 

n p “ f1 s ~ gRB'mZ' 


3(R C LI ) 
3X 


(4) 


Hp - pressure surface static head, ft 
H s = suction surface static head, ft 


a/d r \ 

The rate of change in which ■ is obtained by differentiation of 

expression (1). 


Thus 


3(R C u ) 
"TIT 


= (R 2 Cu 2 - R-j Cu-, ) 2nX n_1 (1 - X n ) 


(5) 


Assuming constant total head (no losses) the surface velocities are: 

C, 


H p - H s • - 


- s ~ Cp - = (C - C ) 3s 
s P g 


( 6 ) 


2 g 


where: 


'Ave 




2 • 2 
C + C 
m u 


3 




Assuming a linear velocity distribution in the passage from the suction 
surface to the pressure surface the surface velocities C $ and Cp are: 



and 

C p = C Ave 

A complete listing and a sample printout are presented on the following 

pages. 
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Oi 4V 8? i? VV <„? 4 9 £9 17 U9 


o r , h r , if. 9'i ',: rS K 4E M 61* t’V 9> if it t> tr \* rr M />' VL *a~ U~ 


ii *c »c ot: f.i e: /i 9: s/ r; » ^ it 6i »i <i ;i m h n i -. 


r — 

--!-- 





; i , ; | | ; * ; j t i ; ! 

Tsyffjwy*^ y^V^T 7"** ^ • j 
i] //■ y ~ r /y p cy • °J pj\ ju7 7 10 C 1 7 =7^75 * j 




y< o}- ~cf ~Yb - ; i °/ e//f<y '= x_ t j_ 

... -I " r rtifiW~J <> 4 * oy | • 



■°V 7 > 




-fyurccfyn AJhyvti Jf t//Ci <.. ri»}°± \*M>/7~ 

•*-•*■ — 1 ~ ; ■“' ' '"7 ^fiu{pvd} \ ol'iy\ ' :'t<juo</>c/ vvj? 

_: ’ 7 “ ■"“' '=>' 3^7 2 / j f MO/j ' = £>" 

— — — 1 4 Iwi^ yp ’JvtfUDiri'^’Z" 

— ‘ -r ~ VpCptii y i'C vS'jiyJ'j i>/-vj - pjj_ 

f /?fy5ojy/T;of}yQi ?uy&n?<p?yp 'jvnpv f 4 f$U0<J’u>ep~ jVf/C-bPu >£ "styz'nO 
~ r /^po/L~iy/i/ 0 ' 'if yr^lY^/p ' 'Jpzpf'y <o'Ubd (voq i>;(y\ 3 Uio£ V </fjnO"' 
— .._._ .... vi>zytf f 'f>ftovfiA f yuiuci/tucQ '/' t, 'f-/[ u '^ u H a 'fPO 

— ; : : 'VnfpPy ~p/u-r T f }/~ 


\-*~j.y /7 A*- Aip - 7 j 




//p-ryy^'.v^ 


Va|/ 7 A 



r j v * r 

M; MJ ■ Di !:N .‘-J 


INJW-itViS NVHlNOi 



rvsivza 3 SV 99 lXcJ & 3 AQ 99 QPD 


V S O «! P'-nu^d 

osown o icci «cxd 


unoj nuipo 3 NVUXUOi 





CFV*L 1 ft f SFf»r 69 > 


ism ono? 

T C >M 000 3 

1 f n ono* 

i c n oms 
T s n no o<s 
1 Sm 000 7 
! SN ORnp 

I 5M n o o 9 

t •* M r o 1 r> 

I *'*l 09 ! ! 

! * m om? 

l <rj non 


' ^ 9 os/369 fortran H - * OATS - T1 •OTT/Ot* 33.3J»- 

rnMPftrn opt ( T ^^“ n ^ A ^* t c M J{£; 0PT=0?tt,Nf CNT “ 7? * * n,JQ °' «5 r nrn! c, noi i st , nopf ck * lq ad, map.noeot t * no t o .no xpet f 

ITMn»(^o" N f ^ SO) * Y nr O A*50 (<r0> ,f3<SO) • A( S'M ,ru^0), T H T A(50), T H T S(5Q), ■■■ - 

p ! VTNS !Dn CUM50 ),CS<50) tCP( 50) ,CAV< 50* ,RCP{ 50} 

Ktt“5 . 

Kv» = 6 _ ' 

1 FPPMAT (7F|0. 3,** 15) 

2 FHfiM AT ( 4F 1 0 . 3 ) 

»PMi(KP,l?J T1T1.F N 

or A(' ( KP, 1 ) «7 t ,CU! ,CU20,CU*A.TM, Z.O.RN.tMT * . 

rtr A»(kp, ? } < »( I ) , Y < I ) , CM( I ) ,m ! ) ,1 *1 ,IMT) 

SYpRA^O. * ♦ 

nv:n. 



! c N 0 0 14 
| f **l 0 O 1 S 

1 00 16 
1511 on |7 
! SU At 1 * 1 
1TN OOJ9 
I5*i O'no 
f r n o n ;m 

I c *4 nr>;>i 
10*1 (Aii 

r,*i no r * a 

f 5 M O '( *> r, 
ISM 0,'.'6 
J‘N 00 '*7 
I rj m?n 

|5M On >9 

! c *1 OP 30 

! ~ * I 0 031 
!<■*< 003? 

im ro3 3 
1^*4 r,»3A 
!*"*J 00 ’s 
\ 5 N 0 o 3 f i 
1 r N 0 0 3 7 
1 s *4 0 03ft 
ISM 0039 
I c M OO A 0 

1 C N or a i 
l o u no 4 ? 

| S*J oo A 7 
ISM 0044 
! s n pros 
f * N OAAf 

T C M On. t 7 
J e fj OnAfl 
1 5 H 0 C 4 9 

I St i no so 

! c . f ! 00*: 1 

ISM ops? 

ISM 0003 
fSN 0054 
ISM 0045 


uruAv^n, 

P?-R(l. MT| 

THis-n i *rui /<Ri*cui-P2*cu2n> 

THAT --1 ,-THl s 

on 100 1 = 1 tl.MT 

Mf)*0/(/*P(f)ACM(l))*144. 

= i *cui ♦(n?*cu?n-Ri*rui)*u.-( l .~y< i )**r n>** 2 > 

fUllimcur/rM!) 
f f (n/( ! ) ) 3?, 33, 32 

33 nr TA(1) s 90. 

PTPi ! ) = 0 

r.ri ro m 

32 3 AMM-. cw( I )/CU< i ) 

MFTA ( ! )=ATAtHTANn)*57.?958 
POM ! >=1 . /{o< i )*TANft ) 

31 15(1-1) 5 e , n 5 * so 

50 PY = Y ( r )-V ( !- 1 ) 

pm a v- <i>cp( t ) *i?rp( ! - i ) )* o. 5 
55 rCMTIMUF 

T)TA( I } - 67. ?9S«* TM*D YA PC PAV + 5T0RA 
THT5( r > = T(-ta( ()-A( n *5 7.?96ft/( ?.*P u )) 

THTP(I) = THTA(l) + A(l )*57.?9 5ft/< ?.*R < J ) ) 

STOflAsTMTAf [ | 

rtlA( f ) = ( Th 15+p{ ! )*CU( 1 ) + THAT*Nl*CUl ) /PC t ) 

T F ( Y ( I ) ) 34 , 3*, 34 ... .. ...... 

35 I r (FN- 1 . 37, 36 

3 7 P9TI = o 

r,P TO -*/) 

34 rrNTiNur 

36 PPTL= ( P2*CU?A-PJ *rui )* 2. *FN* f 1 .-Y< U**FN)*Y( 1 ) *+ * ) 

3 ft nr = 0* 1 44 . /( 32 . t 74*P ( r ) *PC 1 ) *TM*7 ) * PRTL *(-l.) 

C AV ( 1 )- 50 or { CM( I )* + 2 fr UA ( i )**? ) 

PL TC^n-/C AVC I )*? 1 74 

c s ( r ) s c n v ( l l ♦ nt. rr / ? . 
r fm t ) = r a v ( i ) -olt r/2 • 
loo cnMTfNur 

VP I TF ( K.W , ii > 

wn I TT ( K V , 1 3 ) TITL.F 

W F) 1 T f • ( K W , 7 > 

V fM T r ( K w , 6 ) 

wn T TF ( KW, 1 2) Z,0,TM,FN 

wnirf (KW,?) 




I Sm 
! «M 
I S N 
ISM 
f SM 
! SM 
1 SM 
f C M 
ISM 
I SM 
IS 14 


0056 

005 7 
0058 
00*q 
O n *• 0 
006! 

006 ? 
0063 
0 0 6 4 

0065 

0066 


WP|TF(Kw,A) (R(! ).A( I) ,THTA( I) *THT5( f ) , THTPC f ),t»l ,LMT) 

WOTT*(KW. c ) 

WR [TF (KW,6 ) ( YM ) ,CU( T ) ,BFTA< I ) ,8( I) , !«=I ,LMT ) 

V n I T F ( K w , 9 > 

WHITF <KW . 10) (CUA{ I ) »CM( 1 l*CAV(T ), C5 LMT) 

3 FnFMATUOX.'RMOX* 'AMOX,*THTMMOX,*THTS» ,10X,' thtps/j 

4 FPfJMA T ( 6X, F7.4, ? X.F7.3 , 7X.F7.3 l 7X,F7 .3 .TX ,F7* ?) 

5 FORMAT </, 1 0 X » • Y ' » 1 0 X , 1 ru* » 1 OX, * R FT A * ,10X,*P* ,/> 

6 FORMAT <7X,FS.3,6X,F8.?,5X,F7.3,ftX f F6.3) 

7 FfiRM AT (5 X , • * + * M*3M r NCL ATLJPF ***»,/) 

ft F pt; M A T { 5 X » • P = R An I US* , / 5X , • A = TANGFM T T AL W ! 6 TH » , /5 X , • T HT Ms MF AN WRAP 11 
1 • /SX , * ThTS-SUOT ! ON 5URFACF WPA P« ,/5x 4 • THTPsPRFSSUPr SUPFACH WRAP*. 
2/ 5X, • Y^S TPFAML INF PASSAGF LFNGTH P A T I O • , /5 X , < CAV^A VFRA GF VFLOCITY* 

9 FORM AT (/9X, • CUA* , 1 OX, • CM », 1 OX, *CAV 1 OX, *0 S* , 1 OX ,* CP •* /) ; 



ISN 0067 
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AIR PUMP PERFORMANCE MAP 



0. J. Brunner 
4-10-72 


COMPUTER PROGRAM 
AIR PUMP PERFORMANCE MAP 


I . INTRODUCTION 

This program generates data for plotting performance maps of pumps or 
blowers operating in air at low pressure ratios. Inlet condition and performance 
parameters in normalized form are input. Discharge pressure, temperature rise, 
torque, overall efficiency and flow rate at the specified speeds and flow para- 
meters are printed out. 

This program was written for producing predicted pump performance maps for 
the NERVA pump air test rig. The use of a digital computer for the calculation 
of the discharge conditions was necessary to achieve acceptable accuracy at very 
low pressure ratios (r <1.2). 

II. BASIC EQUATIONS 

Performance parameters are obtained from a loss analysis and specified 

2 

in terms of normalized flow Q/N, normalized head H/N and efficiency. Inlet 
conditions are defined by pressure p Q and temperature. T Q . Air is treated as 
an ideal gas. 

The air inlet density p Q can then be calculated as follows: 

144 P n 

o 

P ° R T n 
o 

R = gas constant = 53.34 ft lb/lb, °F 

The isentropic head rise is calculated from input parameters: 

H = N 2 (H/N 2 ) 

3 

and the flow rate in ft /s 


N (Q/N )/ 448. 8 



Pressure Ratio r„ 


r . ( titJ( V S 

p J < C p> T 0 


r 7 ! 


J = mechanical equivalent of heat (778.26 ft Ib/btu) 


Cp = specific heat = 0.240 btu/lb/°F 


Neglecting the discharge velocity head the discharge pressure P 2 is: 


P 2 ' r p P o 


Temperature rise AT 

T (r ) 

AT , -°-L£L 


K - 1 


- T 


o 


n = pump efficiency (input) 


thus: 


T 2 = T q + AT 


and 


2 = 


144 P, 


R T , 


Torque in In. Lb. 

Vo Po H 

M, ~ 12 — 

t n w 


co 


?[ N 
30 


2 



NOMENCLATURE 


INPUT PARAMETERS 


SYMBOL 

DESCRIPTION 

UNITS 

FORMAT 

XN(1 )~(5) 

Rotational Speed 

rpm 

F 

NUMQ 

Number of specified points (Q/N) 

- 

15 

NUMN 

Number of Speeds 


15 

TO 

Inlet Temperature 

Deg R 

F 

PO 

Inlet Pressure 

psia 

F 

DM f .1 i 
S“ / 

FI nw Dr; 

1 t | Ul 

n 

l piu 

V 

i 

HN(J) 

Normalized Isentropic Head 

ft/rpm^ 

F 

ETA(J) 

Efficiency 


F 


3 




'V'S'fl L ! P ; -* u ! J d 
OSOlM/n 9 JlCGi CCX9 


\ujoj Butpc:i kvuj.Ii a a 


l-xi 












: 

i \lf. F0.{ in APR 72 12:o4:3t.7A9 

F0'< TRAN v: 1SJ VERSION' 2.2 

7.HZS COMPILATION WAS DONE ON 10 APR 72 AT 12:04:31 


MAIN PROGRAM 

STORAGE USED ( SLOCK p NAME • LENGTH) 

0001 *COQE C00277 

0000 +DATA 000441 

0002 +BLANK COOQOO 


EXTERNAL REFERENCES (BLOCK? NAME) 


0003 

URDUS 

0004 

NI02S 

0005 

NlOl'i- 

0C06 

N W DU 1 

0007 

NEXP6S 

0010 

NSTOPs 


storage 

ASSIGN* 

<ent FOR 

VARIABLES 

(BLOCK, 

> TYPEp 

RELATIVE 

LOCATION! 

► NAME) 









coco 


C00233 

10F 

CJ 

o 

o 

o 

000330 

100F 

0000 


000337 

102F 

0000 


000363 

104F ' 

0000 


000407 

106F 

ncoi 


000046 

133G 

0000 

000235 

15F 

coni 


000113 

161G 

0001 


000141 

172G 

0000 


000240 

20 F 

GC'Ol 


000023 

200L 

0C01 

000251 

225G 

0000 


000242 

25F 

0000 


000245 

30F 

onon 


000266 

32F 

0 U *J t J 


000310 

34F "■ 

0001' 

0001.22 

4CL 

0001 


000004 

5 0 0 L 

0001 


000273 

POOL 

0000 

n 

0001 1 3 

D2 

o n o o 

R 

r.nr) 1 7r 

DT 

0000 R 

000125 

DTI 

coco 

R 

000^24 

ETA 

0000 

R 

000043 

H 

oono 

p 

000012 

MM 

uvd*: 

i 

00 HR 32 

T 

00 00 I 

000227 

J 

oono 

I 

no 022 3 

LR 

0000 

I 

000222 

LW 

onoo 

I 

00 027.4 

NIIVN 

0 CCD 

l 

00.0223 

r:u:-:o 

' 0000 R 

000057 

PR 

0000 

R 

0002 >6 

po 

0000 

R 

000101 

P 2 

noon 

R 

o o o n n o 

ON " 

GO 0 0 

K 

000251 

RHC 

0000 R 

000151 

RH02 

0000 

R 

0002 07 

TMT 

0000 

R 

000225 

TO 

oono 

R 

000137 

T? 

ocoo 

R 

C0023Q 

VO 

0000 R 

000163 

VO 

0000 

R 

000055 

V2 

0000 

R 

000035 

XN 






C0101 1* DIMENSION ON(IO) ? HN ( 1 0 ) > ETA ( 10 ) # XN ( 5 ) r H ( 1.0 ) pV2 ( 10) pPR(IC) ?P2(10) ? 

C01C1 2 + 1DP(10) r DTI (10 ) pT2(10) pRH02(10> p VO ( 1 0 ) pDT (10) t TMT ( 10 ) 

00103 ■ 3* LR-5 ' """ ' ' 

00104 4+ ' LW = 6 

00105 5* 10 FORMAT ( *!♦ ) 

0 0106 —~b* 15 F CRM AT ( 2 1 5 ? F 1 0 • 1 p 2F 1 0 • 3 ) 

CL-107 7* 20 FORMAT (5F10 * 1 ) 

C011C 6+ 25 FORMA T ( F 1 0 • 3 p E 1 0 * 3 ? FI 0 • 3 ) 

no: 11 9*"‘ '"‘■500 READ (LR » 20 ) XN ( 1 ) p XN ( 2) ? XN < 3 )~p XN ( 4) > XN ( S) 

CC120 1U* I r ( X N ( 1 ) ) 900 p 900 p 200 

00123 II* 2U0 READ(LRp15) NUMO p F-JIJMN p TO » PO 

00131 12* READ (LR #25) (OM( J) pHN ( J) p ETA ( J) ? J=1 pNUMD) , 

00141 13* VO = 0.370416* TO/PO 

001^2 14* RhO = l./VO 

CO 143" 15* 3Q FORMAT ( 3 0 X ? ’ A I R TEST PUMP PERFORMANCE VA°*//) 7" 

0 J 1 * 4 16* 32 FORMAT <?.Xr 'INLET TEMPERATURE TO = * p F7. 2 * 2X r * DEG F *p 10X r ' INLET PRE 

10144 17+ 1SSURE PO =» ?F£U3p2Xp *PSIA»//2Xp * INLET WEIGHT DENSITY RHO =*pFQ. 5?2 

0 01*4 lb* 2X f ' L3/FT **3 ? /// ) "" 

00145 19* 34 FORMAT ( IOXp ’PUMP CHARACTERISTICS 1 //6X f *0/N* ?7X? *ETA' r 1QX? ' H/N**2* 









SPEED = bOOO.O PPM 


0/M 

V2 

DH 


FT/S 

FT 


.050 

.557 

2112.500 

. 10U 

1.114 

2100 . cno 

. i 50 

1*071 

2UOO.OOO 

.200 

2.228 

1625.000 

.220 • 

2.451 

1735.000 

.250 

2.78b 

1600.000 

* 300 

3.342 

1350.000 

.350 

3.699 

1C 7b. 000 

,4 00 

4.456 

737.500 

.ubO 

5.013 

212.500 


PR P2 DP 

PSIA IN H?.0 


1 • 0775 ‘ 15.6233 31.082 

1,0770 . 15.6165 30.893 
1.0,732 15*5620 ' 29*385 
1.0667 15*4669 26.754 
1.0633 15.4182 25.405 
1.0583 15.3453 23.388 
1.0490 15.2109 19.671 
1.0 3B9 15.0641 15.609 
1.0266 14.8863 10.663 
1.0078 14.6103 3.052 


SPEED = 6000.0 RPM 

Q/Ii v 2 

FT/S 

• 0‘jO .663 


DM PP 

FT 


3042.000 1.1129 


P2 DP 

PSIA IN M20 

16.1363 *45.290 



DT 

RH02 

VO 

TOR ODE 

DEG F 

' LR/FT**3 

FT**3/S 

' INLB 

39 .002 

” .07413 

' .559 

"*'6.893 

22.714 

.07628 

1.150 

8*262 

17.412 

.07675 

1*736 

9.558 

14.476 

.07669 

2*313 

10.587 

13.661 

.07656 

2*541 

10.972 

12,786 

.07632 

2*878 

11.633 

11.437 

' .07584 

3*432 

12.4 08 

10.446 

.07525 

3*972 

13.118 

9.631 

.07447 

4.493 

13*679 _ 

8.127 

'•"'.67330 

4*975 

12.781 





.... - . - — 


! ; 

t 

r 


or RH02 VO TORQUE " * fe 

0E6 F LB/FT*-*3 FT**3/S INLB %■' 


56.163 


07432 


673 


9,952 





. : V 

1 • 3w>7 

3024.0 0 f J 

1.1122 

16. .12 67 

45.012 

.150 

2.00b 

2860.000 

1.1067 

16.0464 

42.790 

.200 

2.674 

262S.OOO 

1.0970 

15.9066 

36.921 

• 220 

2.941 

2498.400 

1.0921 

15.8351 

36 • °4 1: 

.250 

3.342 

2304.000 

1.0847 

15.7201 

33.982 

, 3 w* C 

4.010 

1944.000 

1.0711 

15.5315 

28.542 

.350 

4.679 

1548.000 

1.0564 

15.3172 

22.613 

' .400 " 

"5.347 * 

“ 1062.000 

1 • 0384 

15.0572 

15.418 

.450 

6.016 

306.000 

1.0110 

14.6590 

4.400 


■I 


SPEED = 7000.0 RPM 



3/.M 

V2 

DH 

PR 

P2 

DP 


FT/S 

FT 


PSIA 

IN H20 

.050 

.760 

4140.500 

1.1553 

16.7591 

62,510 

' .100 

1.560 

4116.000 

1.1543 

16.7451 

62.121 

.150 

2.339 

3920.000 

1.1471 

16.6328 

59.016 

• 20 0 

3.119 

3577. COO 

1.1336 

16.4378 

53,618 

" .220 “ 

3.431 '■ 

' 340U.600’ 

* 1.1268 

" 16.3381 

50.860 

• 250 

3.699 

313b. 000 

1.1165 

16. 1894 

46.746 

.300 

4.679 

2646.000 

1.0977 

15,9166 

39.197 

' .350 

' 5.459 

2107.000 

1.0773 

15.6203 

' 30.999 

.400 

6.238 

1445.500 

1.0526 

15.2621 

21.088 

.450 

7.016 

416.500 

1.0149 

14.7167 

5.997 


i = 8000 

,0 RPM 
V2 

OH 

PR 

P2 

DP 


FT/S 

FT **“ 

i 

PSIA " 

IN H20 ' 

050“ 

' *,‘891 

" 5406,000 

I 2 0 6 8 

17.4984 

"82.964 

100 

1.782 

5376,000 

1.2055 

17.4794 

82.440 

150 

2.674 

5120.000 

1.1951 

17.3284 

73.261 

200 

“3.565 

'"* 4672.000“ 

— 1.1770' 

* ” 17.0663 ’ 

71.010 “ 

220 

3.921 

4441.600 

1.1678 

16.9327 

67.332 

250 

4.456 

40.96,000 • 

1.1540 

16.7336 

61.803 

3CC — 

-5.347 

3456.000 - 

1 .1289 

"-—16.3694- 

51*723' * 

350 

6 * 238 

2752.000 

1.1017 

15.9753 

40.822 

400 

7.130 

3833.000 

1.0690 

15.5011 

27,700 

450 

*3,021 

544 .000“ 

-**1.0196 ‘ 

“* 14.7635 

7.846 ’ 



OT 

RM02 

VO 

TORQUE 

DEG F 

LR/FT**3 

FT**3/S 

INLR 


75.444 

.07461 

.788 

13.647 

44.520 

.07868 

1.662 

16.704 

34.127 

.07960 

2.521 

14.429 

28.373 

.07947 

3.356 

21.504 

26.775 

.07922 

3.630 

22.251 

25.060 

.07874 

4.157 

23.523 

22.416 

.07778 

4.928 

24.943 

20.474 

.07661 

5.662 

26.176 

18.877 

.07507 

6.341 

27.027 

15.928 

.07278 

6*915 

24.874 


DT RH02 

“■ DFG F . L8/FT**3 


99*845 .07500 
58*149 .08023 
44.574 *08142 
37.05ft .081.25 
34.972 .08091 
52.732 .0802ft 

29.27ft .07902 

26.741 .07747 
24.655 .07545 
20.805 .07246 


VO TORQUE 

FT**3/S ‘ TNLR 


.905 17 1 854 

1 . 936 22.246 

2.947 25.957 

3. a 22 28.715 

4.296 29*684 

4*843 31.324 

5.721 - 33.0^4 

6.543 34,572 

7.283 35.480 

7.869 32.347 * 
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10. PUMP AXIAL THRUST PREDICTION PROGRAM 



PROJECT 121 
W.S. f7 

FLUID DYNAMIC ANALYSIS 


PUMP AXIAL THRUST PREDICTION PROGRAM 


1. INTRODUCTION 

a. The program was developed to predict the flow distribution 
and rotor axial thrust of the NERVA Turbopump. The varia- 
tion in the parameters are also Monte Carlo 1 ed. 

b. The program listing and narrative along with an input list and 
rotor schematic are included. 

c. The program was debugged and modelled the "C" change turbopump. 

d. Changes to engine operating conditions can grossly effect the 
internal flow within the turbopump. 

e. No related activities. 

f. This program was developed by R. A. Livingston. 

2. CONCLUSIONS 

a. Gross Conclusion 

(1) The program appeared to represent the actual turbopump 
quite accurately. 

(2) The program, analytically, performed all of its required 
functions. 

(3) The next logical modification would be the inclusion of 
subroutines to determine influence coefficients. 



PROJECT 121 
W.S. f7 

FLUID DYNAMIC ANALYSIS 


b. Interpretation 

(1) The program does not derive conclusion, i.e., values 
only. 

(2) The accuracy of the analysis has great implication 
relative to thrust balancer performance . 

(3) The accurate representation of the correct thermodynamic 
properties and processes have significant implication 

as to the validity of the results. 


3. RECOMMENDATIONS 

a. The program can allow determination of optimum clearance and 
yet maintain the desired reliability within the turbopump. 

b. No problems have arisen as a result of this work. 

c. The analytical prediction need, next, to be compared to actual 
test data. 

d. See b. (3) under conclusions. 

4. REFERENCES 


None 



I. 


INTRODUCTION 


A mathematical model of the NER.VA turbopump internal flow network was 
developed to permit both statistical and single point (i.e., data set) evaluation 
of the pump internal flows and balance piston position. The primary dependent 
parameters are the hydrostatic thrust balancer position in the housing and the 
flowrates thru the several labyrinth seals and flow circuits which include the 
bearing coolant and thrust balancer flow circuits. These "output” parameters 
are computed for each set of "input" parameters x^hich consists of the pump com- 
ponent dimensions 5 various factors such as the rate of fluid to rotor angular 
velocity, and the pump operating conditions which include interface pressures, 
shaft speed and propellant conditions, see Table 1. For a single point com- 
putation, the mean values of the input parameters are used to compute a corres- 
ponding set of mean output parameters. For statistical analysis, the input data 
consists of the set of mean values of the input parameters plus a corresponding 
set of variances, one for each input parameter. The math model is programmed to 
execute any desired number of repeLative solutions of the output versus input 
parameters, each computation using a different set in input parameters as 
governed by the input variances and a random distribution within any specified 
distribution characteristic (Figure ). The program output for a statistical 
analysis (Monte Carlo) case consists of the mean, standard deviation and range 
of each computed parameter. Since all the input parameters are not independent 
there are correlation equations to approximate the relationship of interacting 
parameters. In the current version of the program, the turbine inlet pressure 
variation is a function of the pump discharge pressure variation, and interstage 
turbine pressures are maintained in constant ratio. In a real pump, there exists 
a relationship between pump discharge pressure, flowrate and shaft speed. In 
this model of the turbopump they are left independent because of the relatively 
weak effect of shaft speed and flowrate on the output parameters as compared to 
pressure distribution factors and because an accurate accounting of the relation- 
ship between speed, flow, pressure and turbine flowrate would require an overall 
system analysis which would exceed the scope of this project. A future goal for 
improving this model might include the development of an influence coefficient 


1 



method predicting the interaction of these parameters. Figure 1 is a schematic 
of the turbopump rotor with the stations numbered for reference in the program. * 
equations and parameter list (Reference Table 1 and the program listing). 
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TABLE 1 

PARAMETER LIST 


INPUT 

PARAMETERS 

NO. 

CODE NAME 

1 

PPD 

2 

P1F 

3 

p's 

4 

PIF 

5 

PTI 

6 

PTE 

7 

TTBP 

8 

WPD 

9 

RPM 

10 

P5F 

11 

P12F 

12 

TBPR 

13 

P21 

14 

P22 

15 

P23 

16 

P24 

17 

TS 

18 

TPD 

19 

ATI 

20 

AT 2 

21 

RHOTI 

22 

THOTE 

23 

CL1 

24 

CL2 

25 

CL3 

26 

CL4 

27 

CL5 

28 

CL6 

29 

CL 7 

30 

CL8 

31 

RTEH 

32 

RBPR 

33 

RTBS" 

34 

rpb"s 


Pump Discharge Pressure (at flange), psia 
Pump 1st Stage Pressure Rise Factor = P(10)/PPD 
Suction Pressure at Inducer Inlet (0), psi 
Inducer Discharge Pressure (2) Factor P(2)/PPD 
Turbine Manifold Inlet Pressure, psia 
Turbine Exhaust Pressure P(24), psia 

Balance Piston Total Travel (0 Clearance to Clearance), in. 

Pump Discharge Flowrate, lb/sec 

Pump Shaft Speed, RPM 

Pressure P(5) Factor = P(5)/PD1 

Pressure P(12) Factor = P (12) / (PPD-PD1) 

Turbine Bypass Ratio = (WPD - w(Turb)yWPD 
Static Pressure at Sta. (21) 

j | ( 22 ) 

j j (23) 

4 V V (24) 

Temperature of Hydrogen in Suction Line 

Temperature of Hydrogen at Pump Discharge 

2 

Flow Area thru Impeller No. 1 Turn, in 

2 

Flow Area thru Impeller No. 2 turn, in 

3 

Turbine Inlet Gas Density, lb/in 

3 

Turbine Discharge gas Density, Ib/in 
Labyrinth Seal No. 1 Flow Coefficient = pAP/w 2 
No. 2 j j ; 

j * I No. 3 1 

! No, 4 | 

! I ji: i 

i ! No. 5 i 

r ! : j 

! ! No. 6 i i 

i S i 

j No. 7 j J , 

'y' v/ No. 8 \; 

Resistance of Holes thru Turbine Discharge = pAP/w 2 
Resistance of Balance Piston Return Flow Circuit = pAP/w 2 
Resistance of Turbine Bearing Supply Circuit =pAP/w 2 
Resistance of Pump Bearing Supply Circuit 



TABLE 1 (Continued) 


NO. 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 


CODE NAME 

YBV1 

YBV2 

XK4 

XK5 

XK55 

XK7 

XK11 

XK12 

XK121 

XK129 

XK13 

XK17 

XK19 

XKBV 

ZO 


Inner Radius of Back Vanes (Sta. 5.5) 

Outer Radius of Back Vanes (Sta. 5.4) 
Fluid-Rotor Angular Velocity Ratio, Sta. 4-4.9 


\/ 


\y 


M/ 


5-5.4 

5.5-6 

7-8 

11- 11.9 

12 - 12.1 
12.1-12.9 
12.9-13 
13-14 
17-18 
19-20 

5. 4-5. 5 


Static Pressure Profile Fa'ctor (= .5 for Linear Dist.) Sta. 


50 

Z3 

i 

i 

! 

; 1 
i 

i 

1 j 

51 

76 

l 



1 

! 

; ! 

? I 

\ 

52 

Z8 



i 

i 


53 

Z10 




; 

\ 

54 

Z14 




i 

i 

i 

i 

i 

i 

55 

Z16 

\ 

:/ \ 

) 

'/ 

y vl' 

I 

! 

56 

Y0 

Line Radius 

at Sta. ( 

3 


57 

YIH 

Inducer Hub 

Diameter 

at Blade L.E. 



\y 


0-1 

3-4 

6-7 

8-9 

10-11 

14-15 

16-17 


58 

Y1 Radius at Station No. 

i 

59 

Y2 

No. 

2 

60 

Y3 

No. 

3 

61 

Y4 j 

No. 

4 

62 

Y5 

j 

No. 

5 

63 

Y6 

No. 

6 

64 

Y7 | i 

1 

No. 

7 

65 

*-< 

CO 

No. 

8 

66 

Y9 j 

No. 

9 

67 

Y10 

No. 

10 

68 

Yll ! 

i | 

No. 

11 

69 

Y12 | 

No. 

12 

70 

Y121 Jj 

f / No . 

12.1 


TABLE 3. (Continued) 


no a 

CODE NAME 





71 

Y129 

Radius at Station No* 12.9 


72 

Y13 

i 

| 

! 

No. 13 


73 

Y135 

\ 

1 

i 

No. 13-5 

A 

74 

Y14 

j 

i 

No. 14 

a 

75 

Y15 

! 

i 


No. 15 


76 

Y16 

! 

i 


No. 16 

t 

77 

Y17 

i 

i 


No. 17 


78 

Y18 

i 


No. 18 


79 

Y20 


j 

No. 20 


80 

Y21 



No. 21 


81 

Y22 



No. 22 


82 

Y23 


i 

No. 23 


83 

CD12 

Balance Piston Orifice Discharge Coefficient Sta. 12 


84 

CD13 

Balance Piston Orifice Discharge Coefficient Sta. 13 


85 

P5G 

Pressure Gradient Between Stations 4.9 & 5 (+ if P5 > 

P4.9) psi 

86 

P12G 

Pressure Gradient Between Stations 11.9 & 12 (+if P12 

> P11.9) psi 


OUTPUT PARAMETERS (COMPUTED) 


NO. 


CODE NAME 


2 

CFBP 

3 

SBP 

4 

PI 

5 

P4 

6 

P5 

7 

P54 

8 

P55 

9 

P6 

10 

P7 

11 

P8 

12 

Pll 

13 

P12 

14 

P121 

3 5 

P129 

16 

P13 

17 

P135 

IS 

PI 4 


Thrust Balancer Inner Orifice Land Clearance, In. 
Balance Piston Load (Sta. 12-13), lb. 

Balance Piston Axial Stiffness, lb/in at T 
Pressure at Station 1 

i 

i 4 

\ 

5 

5.4 

5.5 

6 

7 

8 

11 

| 12 

| 12.1 

j 12.9 

! 13 

! 13.5 


14 



TABLE 1 (Continued) 


j ^ 
6 

CODE NAME 







19 

P15 

Pressure at Stat 

:i.on 15 



20 

P16 



16 



21 

P17 



17 



22 

P18 


j 

18 



23 

P19 


1 

i 

i 

| 19 



24 

P20 


t . 

20 



25 

WL1 

Flowrate thru Labyrinth 

Seal No. 1, lb/sec 


26 

W7 


t 

j 

t 


No. 2 


27 

W8 


1 



\ No. 3 j 


28 

WL4 


i \ 

\ 

| ; 



j No. 4 I 

1 | 


29 

WL5 


i 



i No. 5 j 


30 

WL6 





! No. 6 ! 





\\/ 

.. 

/ 

\i' \|/ 


31 

WL8 


\ 'f 


/ 

' No. 8 i 

- 

32 

WPBS 

Flowrate thru Pump Bearing Supply Circuit, 

lb/sec 

33 

WBPR 

Flowrate thru Balance Piston Return Circuit 

, lb/sec 

34 

WBP 

Flowrate thru Balance Piston, lb/sec 


35 

WTBS 

Flowrate thru Turbine Bearing Supply Circuit, lb / sec 

36 

WTEH 

Flowrate thru the Turbine Disc Vent Holes, 

lb/sec 

37 

F011 

Summation of Axial Forces between Stations 

0-11 

38 

F1325 


V V 


\ > { 

13-25 

39 

FTURB 

Summation of Axial Forces Acting on Turbine 

Blading 

40 

FM1 

Fluid Turning Reaction 

thru Impeller No. 1 


41 

FM2 

• i 

f 




No. 2 


42 

FMOM 

FM1 + FM2 

* 




43 

FO 

Pressure Force Betivreen 

Stations 0-1, psia 


44 

FI 





1-2 i 


45 

F2 

I 

. \ 

i 


2-3 | 


46 

F3 


i 

» 



3-4 i 


47 

F4 

i 

t 

\ 

\ 



4-4.9 i 


48 

F5 


\ 

i 

i 



i 5-5.4 j 


49 

FBV 


! 



! 5.4-5. 5 I 

t ■ 


50 

F55 


! 


; 

5.5-6 


51 

F6 


I 


j 

| 6-7 


52 

F7 


i 

| 



| 7-8 j 


53 

F8 


; ! 



8-9 i 

! , 


54 

F9 


i . \ 

\ f / 



9-10 ' 1 




TABLE 

1 (Continued) 



NO . 

CODE NAME 



55 

F10 

Pressure Force Between Stations 10-11, psia 

56 

Fll 

i 

| | 11-12 

57 

F13 

1 

i I 13-14 

t 1 

58 

FI 4 


| i 14-15 ; 

59 

F15 


I 15-16 ! 

60 

F16 


j 16-17 1 

61 

F17 


f i j 17-18 ! 

I I 

62 

F19 


it! i 

, , .. ! 19-20 ; 

\ !/ \ / (I i ! 

63 

F25 


1 24-25 

64 

RHOO 

Fluic 

^ i 

Density at Station 0, lb/in~ 

65 

RH05 


I 1 

1 i 5 i 

66 

RH06 


1 6 1 

' : i 

67 

RH07 

i 

■ 7 1 

68 

RH012 

i ; 

i 

! 

i 12 ! 

69 

RHOPD 


{ V 

! P.ump Discharge 

70 

R0129 


| 12.9 

71 

R0135 


i, 13.5 | 

72 

RH018 

v ! A 
) 

/ 

M 

OO 

73 

P49 

Pressure at 

: Station 4.9, psia 

74 

P119 

Pressure at 

; Station 11,9, psia 
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' TOTiTT nTTT HTmT a=si iouT ) " ; 

cOFiMOl ! /TAPE IN/ ~Q\ lANlTlO'ob * CHANZ ( 1 00 ) r CHAN3 < 100 ) * CHAN4 ( 100 ) f 

1PA!UD( 100) * CHAMID ( 200 ) ,UNTTS<200) fDEC^OO} fNPAR 

COMMON /TITLE/ TEST 1 0 ( 1 2 ) tO A Y t 2 ) rRUNT^FJ 2>/ IP_AGF __ 

INTEGER O I A* ) 1 » C H A t ! 2 t C H AN 3 * CM AN4 f PAR ID * CHAMID f UNITS f DEC * END f 
1 P A R C K ( 1 0 0 ) * T A PE I N f T APEOT 

■ 01 PENS I 01 ! p !£ F ( 1 0 0 f 1 0 ) f I C MA N ( 4_) ! 10 ) 

"'“data blank /» y /~'~ 

DATA PAR ID / * P ATM *»*PSO • r * tn * f *P\-FX * t ♦PLFO ’f’PLRI * f 
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— — 2 •’ P 1 “ * t * T 1 ’ f '» P 2 V •' T 2 * * * PTD ~ f *'P 708 '* f *>726 *” * 4 

S^PUIFll’ f * PDIFI2* t 1 P0IFI3 ’ * 1 PDIFI4 * t *PniFT5* t 1 PDTFI 6 * f •PDIFI?* f 

4 * PD I F 1 8 * » * PD I F 1 9 * f * P0IF0_*.f_1N ’f»£767 » f *P725 */ 

DATA "END/ ' END*'* V / ~ 

LINL =0 

IPAGE=1_ _ _ : 

READ ( 1 ) ” D A Y rRTJN Ti VE f TEST IDfTAPFINfTAPFOT 
READ (1) MWORDSf (CHANID(I) fI=1fMW0RDS) 

READ (1) KriORnSF (ONITS(I) fI = 1fMW0RDS)_ 1_L 

READ Tl )’ M WORDS f (DFC ( I > f'i'sITmwORDS)' 

TAPE I N=T APEOT 

DO 100 1 = 1 f 2 ; 

DAY ( I ) =(3LANK 
10 0 RUfJTME ( I ) =!JLANK 

CALL DATE ( 9 f DAY ) ' _ - 

CALL* TOD ( 8 . R UMTMPfj" 

IFLAG=0 

DO 210 1 = 1 f’JPAR ; 

2 iO PAKCK ( I ) =0 

.READ ( 5f 20 ) TAPEOT * . 

240 READ ( 5 f 2 0 ) I OF N T f ( D EF I N < J > f J=1 r_l 0 ) f ( I CHAN (I? fI = 1f4) ^ 

2 0 ~F OUWA .T ‘ ( A 6 V I X f 1 0 A 6 f iY f 4 1 3 ) 

K = 0 

2S0 K=K + 1 

’IF ( IDENTVEG.FND). GO TO 270 
IF (PARID(K) .FQ.inEMT) GO TO 260 

IF ( K • GE . NP_Afn „G_0_J0_255_ • , 

GO' TO 250 ‘ " ~ ’ *■ 

265 WRITE ( 6 » 1000 ) IDENT - , 

K) °0_ FORMAT (//10XfA6 f* IS AN UNRECOGNI ZADLF PA RAMETER IDENTIFICA TION* ) 

GO TO 240 " 

2t>0 PARCK ( K ) =1 

CNA!U(K)=ICHAMU) 

'CMAN 2 (K’)=ICH AH (Z V 
CHAN 3 ( K ) =ICHAtJ ( 3 ) 

CHAM4 ( K ) = I CHAN ( 4 ) • 

"n=i 

DO 265 1=2 f 4 

IF UCHAMtl) «FQ« 0) GO TO 26 6 

'-265”N=I “ 7 

266 DO 267 1=1 fN 

_J=ICliAN(I) : 

To 7 IDNt I )=CHAi!ID( J> 

DO 2b8 1=1*10 

268 PEF'KFTJr.DCFIHm * 












j 



j * vv -as ) * 

( f/ £ ) A - ( £ X ) A * u t ) A - 


♦ * • . ji • l ! i i'. ( * «</.*./( » rt ' « i 

' ( U '£ ) A * ( t> ) A - ( 0 ) A * l V ) A # ( S W\ * ( *0 A 
/.(*** * I £ J * Ml l 1 

LCOgjj.^t.W IJ :i!_( P_ U_d i (.:!» I ) d 4 Cot) d * ( u 1 ) J 


) . 4 * * -'*■') » ->' l 

(V’)AMDA VIVO 
(22) XT 
(<n vnjd vi vu_. 

t u 1 > t.nr-i * (tKj)d»;iiv * (us-o?' i ) Uiaifio fioisrpwiu 

103dVl-Nl3dVlT 

iMiOH (ftp AM 22 )JV ( 22 i d * dNlNOdl A V G < U 1 IS d l - Nf 11P.3.C .*.p JI.L Ji3.93J.il I_ 
(UdllNN* (U2i)3jb- (u2X)U3H /M3KON/ liOWl-103 
39VdI- (cOdNlNnU' (2>AVa-(21 )GIXS3l /311I1/ NOk'WOO 
cxoBcivx'Niadvx -31131 < bxjSij < yvdw^3.*axvixndX.no)...x.dJLno„3.Mixfioyonb._; 

" ' OH3 

NiJnx3d 

j/yvdl_i JWIXP9V2J,*. 3XVa».-XST-9V^T)_.xVW>IOd_ 

, d9Vd* -X00- *1S31 dl-ifl.J 2Hl*-X2S-*X«) lVWNOd 
(9V-XX -9V0I -XI -9V-XI ) XVWdOd 

_ ( IV * X 9^9VJJJ„i9V0J^.XT - 9.V) X V VI H 0 d . 

3HNIXMOO 

002 OX UP (09*X1-3NI1) dl_ 

(I)Nn-d3U- <I)03H (Cifoi-9) 


Oil* < 


0.T.Q2L 
0002 
0 LOT 
0 0 0 T„ 
00 2. 


3WXNnd_-JsXPXPIlS31_ 

39VdI 




31J*JM 

x+3nn=ifin 

J O X 02 -9) .3X1 
(00 02-9) 3J T>jVi 
1 f 7‘ 9 V d I — 39 V r.l I 
_{ Q .* X9* 3N 13).. d I_ 
(I ) OdO- (I)Nn-d3G- ( I) Q3H l b 0 0 1 - 5 ) GVSiJ 

iiVcJW-I = I 002 00 

>ii iv 19 = ( i ) tin., 

liidWlsi 00 T OCJ 
G-3M T 3 

/ * */ vriviti vjvo. 

3wx'whu ♦ AVU-'g I XS3X - XN Vinniii’- Odd - P3H }J39?1N I 

( 01 ) d 3C! no I Si ill-! 10 
( u 2J Hvll 1 -_( 0 2 1 K>30_- _(_p_ 2 T ) (J 3H J N 3 V. 0 f i / N 0 t-ii-i 0 0_ 
30 Veil - {&Y2vdmU 4 (2)TVG-l2I)uIXS3X >31111/ NOWWOO 

(dVdW)worano 3uunOM?ins 

____ CIN3 

•Ndnxiui 


ogi 


.O.Q.L. 


doxs (0*in*9vidi) di 

3nNixno3_0Q5: _ 

X=9VldI 

(9V - * POd N0UV3IdIXN3QI 13NNVH0 UN *-X0T//> XVWdOd 0201 

( I ) GIfJVd (0201*9) 3lIMrt 

009 OX 09 (I * 03 • ( I ) VOGVd ) dl 

dVdN - 1- 1 (JO?! 00 0X2 

002 01 09 


OTOT 

6 C >2 


I+39VciI=39VdI 

o=3tin 

ot /2 ox o9 (09 # xi*3nn) di 
" “ t+3Nn=3Hn 

( (9V-XI -ei -X2) V-yVfH -X2-9V-XI ) xvwnod 
JNJ_I_=I- CDNaiJ ( DNVHDI) - (OJ-Inl- (l-M)d3G) - (xJOUIVd (.010 1 -9) 3lim 

(/TOdSn S13i'!NVH9 1 - X t i.‘ - * NO I X IN i d30 * - X 0 2 - i ij 31 3W V )J Vd * -XT) XV-JifOd 02 n 

(0211*9) 3X1 

_ XOddVX-J'illdVX. ( 0 e T I 9 ) . 3 1 1 H fa 

C/9V-* = 3dVX lfldxno* -”xS V 9V* * - ddVX XfUiNI »/) JLVW>iOd 0£TT 
3wxnnd-Ava*Gixs3x com *9) 3 x r hm 

(9V 2- > 3 ^ I X ♦ - 9 V 2 * * 31 VO i - X2C - jV2j.)..,X^^dOd ...O.T I.I_ 

(21 -* 39Vd* 4 XVi7* *1S31 dWOd 2M1 * - X2S - * 1 * ) XVWNOd 00 1 1 

39VdI (OOTI-9) 3XI>i« ! 


9 !. iDiii’i 

t»xi nno 
_ e/.C rtno _ 
2 X 1 non 
TXTOOO 
__n/ loon _ 
691000 
99X000 
__X9inoo„ 
99X000 
99X000 
„P°IO0n_ 
99X000 
29X000 

T Q TO o n_ 

“ 09X000 
69X000 

09 T 00P__ 

XSTOOO 
99 TO 00 
__59 X n n n„ 
voxono 
to too n 

_c9Tnno_ 
TO X 000 
09X000 
C'hT 00 Q„ 

rtix non 
X+iioon 
i; x o n u _ 
9 b T 0 0 0 

+7 if T 0 0 0 

_C*tTOOO_ 
2lrX0r ; 0 
T i; X 0 0 0 

oiannn_ 
69 1000 
99X000 
xex n oo 

• °eiono 

99 TO 0 0 

tjv: x nno 

99 x on o” 
J 291000 
_T9Xonn. 

09 to no 
62X000 
_ 92 TO no 
'x 2 ionn “ 

92 TO no 
_ 92tnon < 
\,nnno * 

9 2 T 0 n Q 
22 T On0 

12 1 ooo 

02X000 
6 T T ° 0 0 
HTXnr.o 
XXTOOO 


9X 39 Vd 2X ddV SO 3XVU 


00 X * 2 * 6n292 t7«0Vi 







) 


TAD # 4 28249f2f 100 


DATE 05 APR 7? PAG? 


17 


K 


s 


000177 

°ooi7a_ 

“0UU179 

cooiao 
jjOuiai_ 
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JJUU199_ 
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' 0UU2D3 
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! 26H)/4Xr * # 
DATA G (22) 


6HSEC * f3f. 
/* ) •/ 


♦Xf*f *( 5XfA6»f *>/W 


/ 


DATA NUM/"* 1 ’ r*~2» f «3* f »4» f *5' f *6» f *7» f *8*f »9» r *10*/ 

DATA BLANK /* */ 

IF (IFILE.GT.O) G0_t0_10_0 

WR I TE ( 2 y h' A ' YV ' WlTME 7f F 5 1 1 0 1 T APE I M * TAPEOT 

WRITE (2) MPAPr (HEDII) fI=lfMPAR) 
write ( 2 ) hp arm uu ( i )_# i = 1 f_mpar) 

Ml- J A R V ( DE C ( I ) ri = x »'M P AR ) 


WRITE (2) 

100 DO 200 K=1 fNPARf 10 

I P A GE= I PA GE*! 

L=K+9* 
ncoL=io 
if (l*le.kpar) 
i=mpar”'' 

riCOL=MPArt“K+l 
150 V(2)=NUM(HC0l.L 


GO TO 150 


TESTIDfDAYfRUNTME 
(If I=K fL) t ( MED ( I ) r 1 =K » L ) r (UMCI) r I=K fL) 


180 


182 


185 

20 0 

300 


'400 


2000 

2010 


V ( 7 ) =NUM { NCOL ) 

v(12)=nu;mwcol) 

WRITE (6»2000)_IPAGE_ 

WRITE <6f?Q10) 

WRITE (GfV) 

M.=a _ ' 

DO io'0‘T=KfL 
M=M+2 

F(M)=DEC(I) 

DO 182 I = 1fM“ 

G(I)=F(I) 

IF ( M • EQ *21) GO ' TO 200 „ 

M 1 :: M t 1 

CO lfj*» i -M 1. * P 1 
G ( I )=MLANK 

'V/RITE (bFG)''nrATiMETM") f (OUTPUT ("I fM) f I=KfL> rM=lfNSETS> 
DO 300 J=1 fNSETS 

WKWE U) MPARf ATIME(J) > ( OUTPUT ( I r J ) >T=1 f MPAR) 

“no aTi'o 'T= _ rr T “a':7 
DO 400 J=1 » 50 

OUTPUT (I fJ) =0.0 

Tfile=T 

FORMAT ( * 1 * f 52X. »LH2 PUMP TEST *» 44X r * PAGE *fI 4> 
FORMAT ( 1 2 A 6 r 1 2 X fJ D A TE * » 2 A6 » * TIME y P AG/ ) 

"RETURN 

FNL) 

SUBROUTINE 6E0MT „ ' 

COMMON /CALC/ INPT (100) r GEOM ( 50 ) t OUf (120) 

COMMON /TITLE/ TESTID ( 12) r DAY (2 ) fPUNTME ( 2) f I PAGE 
PEAL INPT „ 


DATA MUM/ 30/ 

EQUIVALENCE (GE0M*<1 ) * DSL1 ) t (GEOM (2 > fDSL2> f (6E0M(3) f ALBF ) t 

1 (GE0M(4) j_CLAnF) , (GEOM (5) » ALPR ? f (GE0M(6) fCLA BP? f 

“2" ‘ ( GEuU (7) f AI> ) V (GEO* 1 ! ( R)"t I )T> )~f (GEOM ( 9 ) r"R F‘T2 ) * 

3 (GEOM (10) f/2) » (GEONK .1 ! ) fP^TAP) f (GEOM( 12) f ADFD'J f 

4 ( GEOM ( 13 ) f DDL ) f (GF 0MO4) rRUOR^F) f ( GEOM 1 15 > *O p FP > f 

~b ’ "(GEOM( lf>7 t ORFCOE ) 7 ( GROK ( 1 7) f ORFBT A )" i (GEOM (TeTr W) > 

j o \ , n 7 -i, ) , ( ■■ F C : - ( p * ; ; ) , • *' 0 7 ) r ( r - r.- Hi * 8 ) f 


(rrOM(?2) t R724 ) F («i c, OM(23) fR7?5) r (G'"OM(?4) fR 726) » 
(GEOM (2b) f RLr) f (GEOM (26) fRLM) f( GEOM (27) f'rLDV 
(GEOM (2.b) fRIN) f (GEOM (29) fPLO) r ( GEOM ( 30) fPLS) 


I PACE- Tf* AGE 1 1 



DA T E 05 APR 7 ? P AGE 






oyoM7 
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TaQ « 4?a249»2f 1 00 » 

1010 FORMAT ( * 1 * » 52X t * LH2 PUMP TEST * p 44X # * PAGE **I4>- 

' WRITE (6*3020) TESTIOjf DA Y # RUHTMF - 

* *2 A 6 r * T I ME ~’p?A6) 

READ (SflOUO) (GEOM(T) p!=1*MUM) 

1000_FORMAT(6F1U.O) 

WR 1 1 E < 6 f 2 0 0 0 5 DSL 1” ' 

2000 FORMAT <♦ DSLl SUCTION LINE DIAMETER UPSTREAM FLOW COND.*»30X 

1»F6.3»_* IN 1 ) ■ 

W K 1 1 E i 1»V:‘ o i' J .) " DSL? 

203 0 F('i<i A ! <* l-SL? SUCTION L INF D I A .-'ET r '9 DOVJNSTRE AM FLOW COND**, 

IPi'X r F6 • 3 f 1 IN’) 

~V;K I I E ( 6720 20 ) ALPF 

; 1- 0 F6.-,.Ai (’ At ill . ' FRONT LABYRINTH FL r P AREA ♦ p H OX# F6E3 p * SP-TU*> 

>4 l / - (6r?c30) cl arf „ 

~2T3T0~F 0 U MAT' T» "C LA BF" FRONT LABYRINTH COFFFTC IENT * 1 44X r F6 • 4 ) 

WRITE<6p 2040) ALRR 

_2 04 0_F OR M AT ( * a L P R pf AR LABYRIN T H FLOW A PE A * » 47X » F6 » ? f * SQ- IHM , 

W iVi T r ( 6 f~2 0 b 0 ) "C L A - 3 R 

2060 FORMAT (’ CLA n R RFAR LABYRINTH COEFF TC IENT * * 4 SX p F6 . 4 > 

WRITE ( 6 * 2060 )_ AT? __ ; 

2060 FORM A T ( ♦ A I 2 IMPELLER DISCHARGE BLOCKED AREA 't 40X f F6*2 

1* SQ-IN*) ; 

write (6» 2070) DT 2 _ 1 

“207Q~ F CRM A T"" V'~i> l?. IMPELLER DISCHARGE DIAMETER » p 44X , F6. 3 p * XN»> 

WRITE <6p20b0) E>ET2 

_20c}0 FORMAT (i BFT2 ^PgkLER_,.pYSCHAPf5F BLADE ANG LE « p 4 IX » F6 * 2 p ■ • 

I* " l)EG * ) 

WRITE (6*2060) Z2 

2 U H U F 0 1 < Li , . T ( j a ? _ NDMj >ER OF I M PELL RR ^LADES f r SOX » IP ) 

j^pTap 
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WRITE ( 6 » 3 0 2 0 ) DDL 

3020 FORMAT (• DDL DISCHARGE LINE DIAMETER * 1 4R X»F6»3> * IN* 3 

'WKlT£~‘( 673030) KHOREF 

3030 FORMAT (* R HO REF REFERENCE DENSITY * r S4Y f F6 . 4 » * LD/CU-FT*) 

WRITE < 6 r 304 0 ) ORFD 

3040 FORMAT C'~ OHFD BEARING COOLANT ORIFICE DIAMETER* * 3 qy »F6*4 * 

1 * IN*> 

WRITE < 6 » 3060 ) OI^FCOE _ ^ _ * * ; 
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• IF'6.4) 
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C ' PVAPTK= VAPOR PKESSUKF IM TAMK---PFIA V 

"C 17 IOl=F LU I0” OF! JS I T YUPSTPFAM, OF FLOW COMO IT I O f ER LB/C'J-FT 

C f<H02=FLU!0 DENSITY DOWMSTRFAV OF FLOW CONDITIONER LB/CU-FT 

C RMOLI 0=L IOUID DENSITY DOWNSTREAM OF FLOW COMP IT I ONER LO/C U-IN 

~C K 1 1 0 S A T = S AT U ! ? A T t Of f i) E f ! S I T f CO R PE c > P 0 [ >! 0 T N 6 " ' T 6~ S 7 *• — LB/CU-FT 

C RMOVAP-VAPOP. DENSITY DOWNSTREAM OF FLOW COMDI TIONFR LR/CU-IN 

C S2-ENTPOPY DOWNSTREAM OF FLUID CONDI TI ONFR— BTU/LB-DE G R 

” C 7 i-TEMPERA fUf<L UPS I REAM 0F~ FLOW " CONDI T I ONFR- — DEG P 
C T 2 PLEASURED TEMPERATURE DOWNSTREAM OF FLOW CONDITIONER DEG P 

C T 2 C A L C = V A f 3 OR TEMPERATURE CO R R ES PO ND I NG _ T 0 _ S , ? - - -D F G _ R 

~"C T I k=T AUK t E MPl.:i i A TURK- -'-DEG ' R 

C V ) -A v ‘!> ) AGE FI iJl|) '/t-IOCITY nncrijcAM Op FMfTD C Ot tni TTOMFR— —FT/SEC 

■ ■. -tr, • -r r* it ■ ■ 1 TT ■ ■-'? FT/ r FC 


Y 2 “DUALITY DOWN STREAM OF FLUID CONDITIOMFR 
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COMMON /SAT/ HSAT(25) r95AT(25) f TSAT(^S) »SSAT(25) f RM0SAK25) » 

/ 1EMPT { ?5j tCW SlJ>5_) fJMJM 25 >_>_EMH£ igfw * EMRHC S ( 25 ) 

7 7 1 I i' Vi 7 v;. : v y ' Cl ■ » ) r.VrO'l ( ! V n , u IT ( 1 2 u 

■1" r \ j V 

: , i ■ v ■ i : f t ■ h » r f t;>> , wo , (t ! »r< vm #t«tj‘» (t,vt(vo *!»?.) > 

: rnTTn^wTHTTiTr. 7 ^ fV) V>?T;ivrwl 17 w t>.) 
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v i j r ( ■ o / : i r. ; ) n o- it : i. ■ -, > r mo u n own i>>) > vu * 
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C*** COMPUTE TANK CONDITIONS 

” CALL' P TEN T hTpTKV TTK7 1 * MTK t JFLG ) 

IF (JFLG.GT.1) RETURN 

CALL SPLfiT ( N ? TG AT r PSATf EMPT^TTKf PVAPJK > 

~cV*VTi 'EC k“fo r Vapor "'upstream “of f low' c ond i t ton e r 

IF (Pl.ST.PVAPTK) GO TO 90 

WRITE ( 6 r 1 020 ) ' 

1020 FORMAT ( ♦ POSSIBLE VAPOR UPSTREAM OF FLOW CONDITIONER’) 
90 CALL PTOENStPl >T1» I»RH01 * JFLG) 

IF IJFLG.GT.1) RETURN, 

V i = 14 4 7 * .7?) 0T7 ( fOToi + A 1 7 

. . ' 1 , f 1 ( R r N ! t JF*. ; ) 


;,v.vti v; iTt.vtv *■ vrrnv . ? /vtttd 

CALL SMLUf ( i U TbAT t PSA T r EMPT f Tl t PVAPl )• 

IF (P2.LE. (PVAP1 + 3.J ) GO T O 100 

"+* *" L IV G LE "PH /' ->L " n 0»." : 7G i ,.;E?V TV FLO V CONCUTlO^ER 
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Sd-(jIo=MISdO 

* - 33inU'id0dHJd d JO 0 ( 10 1 

SM / (J ‘ • 1 - G i d 3=0 0 x d d 
ijtfiHn/ima=nj dd _ 

. — -**" (insiM-ViOSin)'=i uiu 

(k1SXH-liCU.M)=l!VJ.lKj 

l)/(]0-C! 10 

■ * “ 2^+20/ Vli •2^*65100=000 

* a++;j/osina=o2NH 

91 •tfll*(i!Sld-505iO) =05100 

Hiiruj'd (rxo’sup) di 

(OldP'BOSlH 4 T 4 5b 4 Cld)01025d UVD . 

Sld-(Ud=njdG 

: " 9510 - 0010=00 

9X*Oi/./ljAC.:h+ciOSH=HGXH 
•*|tiT/TiAaHi«noH>i+C;Sd=nid 
- “ ■ iilt # ;?kV*2/2**5I(!A=33A0li 

(9f< Mi ill. i- |>'1V I / * i- H i 4 lio"*; ] liA 
Hiin.i. 1-1 ( t * i | u‘ } .! 1 

(t)idr«Ud* 'iiii. 4 u5d> i iv j 

• 0 21 / N * 2 i < 0 09 t if l • C =dn 
30NVd dOddJd “PViGAO dt\Od 
' “ " ^t:>'KiC.]+*U/6GIt)T‘C=10V 

2Z/(d2ijU)in5*6sm *c=d'ir» 

( 22139 )0Vi=2jai „ 

_ - ~ “ ■ 962- < LG/<:i3fi=>i2i3d 

S1NV1500D 

nsoHdMijt >xno) _ i_ 

« ( sTd m is jTrio )V( tisir* ( 227mo j «' ( tisio m V d ) mo ) idnbiva i nod 

( Vi.'ilCjdMEb) 100 ) 3DN3lvAin03 

_juA3Ma - .{ r iZ.iJLno) 

M dG doumTZTIoo ) « ( cJIoh ' 1 YcZ j in o j 4 ( a 1 1 h a 4 * (Siiino) i 

< <su2no 4 (U)ino) 4 (abiHu 4 (udioo) 4 ohdhq 4 (69)ino> £ 

Mdw IJ3 4 (99) if 10) 4 UidUh 4 (19) 1(10) 4 ( I ilf !\J 4 (°9 ) 100 ) 

4 (II OH 4 ( 99 ) il 10) 4 <5130 4 (b9)100) 4 (9I2U.-I 4 (£9)100) I 

4 (IbIHu 4 (29)100) 4 (ulblH 4 (T9.) 100) 4 (uIOHd 4 (09)100) 6 

4 (dWItJH* (69)100) 4 ( Hi Ibd 4 (99)1110) 4 (2IHJMZ 3 > XHO ) 9__ 

4 (500 4 ( 99 ) 100 ) 4 (2 1 j 1 50 4 (9b ) U 10) 4 (01 bHCJ 4 (69) 100 ) L 

4 (HlSdU 4 (£9)100) 4 (OUidb 4 (99)100) 4 ( Oldd 4 (19)100) 9 

4 ( 1 1H0 4 (09)100) 4 l iiVJ.Ha 4 (6(7)1(10) 4 ( ON 3 M 9 U). LOO) 5_ 

4 Yo OH M ~IM ) 100 ) 4 (02 Hi- i 4 ( 9 n ) 10 0 ) 4 < U 9 1 i 1 0 4 ( 9 h ) 1 f tu ) li 

4 (Old 4 (00)100 ) 4 (Uld6 4 (tO) 100) 4 ( UOlri 4 (^0) 100) £ 

l < S_1 0 A M l 0 ) iOpl 4 <2 : fV , ( 0 k>- AO.QJ no_) i?„ 

4 ( 90 4 ( Z I ) ino )~ 4 ( 50 4 ( T iTlho ) 4 uialM 4 ( 6 ) if (0 ) 4 Uii'U'i 4 ( 9 ) 100 ) I 

4 (UGbO 4 (0)100) 4 (UO 4 (£) IOC) 4 ( GM 4 (2)100) 4 (OOnd 4 ( niflO) 30lJ3ivAinO3 

( Sdliil.) 1 d_ N. 1 J 4 ( 0 4 (TOldtlDS 

' 4 (OdXOd 4 (OC)idNl) * (oldlbci 4 (62)ldiJl) 4 (9IdI0d 4 (9211601) 0 

4 (lldlGd 4 (l2)ldNl) 4 (Vldlad 4 (92)ldOI) 4 (5IdIUd 4 (S2)ldwl) E 


3UVd 21 da V SO 3iVU 


001 4 2 4 60SU20 4 GV1 



TAD # 428249 » 2 p 1 00 % 


D ATE 05 APR 72 PAGE 26 


1 


0 0 U 7 1 7 

_ooo7ia_ 
000719 
000720 
_0 0 0 7 2 i__ 
000722 
0UU723 
0 U o 7 2 4_ 
" 000721 ) ' 
00U726 
000727 
~ 00 0726 ■ 
000729 
000730_ 
~00U731 
0U0732 , 
_0 00733 
00 0734" 

0 UU73S 
00U73S _ 
'‘000737“ 
OGU V3tJ 
0UU739_ 
“000 74 0 
0 0 u 7 4 1 
_ 00 o 74 2 __ 
0 -jo 743 
000744 
_000745_ 
0 0074 O' 
000747 
000740 
U Ou 749 
000780 
_qoo78i_ 
000782 
000783 
000784 
“00u788 
00u786 
_00u787_ 
000788 
000789 
0 0 0 7 6 0 
0 0076 I 
000762 
000763 
“000764“” 
000768 
0C0766_ 
”‘000 767” 
OOU760 
0 00 769 
00o77(J - 
OUU771 
004772 
‘ 000773 
U 0 u 7 74 
0 iMO/76 


CALL PHDENS(PIMPpH8IMPp 2 » RHOIP pRHOL > OUALp UFLG ) 
IF ( jELG.GT . 1 ) RETURN 


i f Cabs Ci" . -ruolivrho x d ) -i . oe-os ) 1 so > t so p i o o 
c / impeller static head coefficient 

-150 CALL PHTEMP ( PDTFT A pHPIMP p 2 > TIP / 0 I 2 p JFt.G) _ 

~ "RETURN """ 


IF (JFLG.0T.31 
CALL PSENTM (PPIFI A pSS p 2 p HISIB p JFLG) 
IF (JFLG.GT.1) RETURN _ 

1)H 1 51 = ( HI S I ( )-! (SB) '*77 8 Cl 6 
HN2IS=DHISI/M**2 
HCIS-32. 174*PHISI/U2**2 


"IMPELLER" TOT At HEAD "COEFFICIENT 

HCIT=HCIS+ (DI2/2 • /RPTAP ) **2* (PSITH**2+PHI2**2) /2. 

_DH I T I =U2 * + 2 * HC I T /32 .174 

Hfj2lt=OHlti/N**2 
FF I MP=HC IT/PSI TH 
HOUSING HEAD LOSS C OEFFICIENT 
OHCHG=HCIT-iic6" 

DIFFUSER AND VOLUTE LOSSES 

_ C A L L PSEUTiMPDIKOfSS p 3 p HISD8 r J F LG ? 

"IF ‘ ( JFLG.GT. 1) return" 

DHISD= (HISDD-f tSH ) *778. 16 : 

HN2DS=DHISL>/M**2 _ 

"OlrKijStR" DTSCPAiinE“AMGLE "RASED ON PFLEIDEFIS DEVIATION CRITERION 
CM 62=1 44 • +' (hS-WLBR>/RHOD/ADFD 
CUTH?=U2*PSITH 


“AL52!<=ATArK 1 .7l2.br+0.245*CUTH2/CM52) ) 
HVUFr. 976+ ( CMS2/SIN ( AL52R > ) **2/ C 2 . +32 • 174 ) 

DHI TD=OI II SD + HVOK ‘ 

ICT0=3 ?. '.' 1 74 + 0 1- i I T 0 / U 2* * 2 
OHC.OF--HC I T-l 1C TO 

DHCVO=! ICTD-HCO 

RETURN- 

- END 

SUBROUTINE TAPE1 


“OWwO N‘7 TITLE/" TFSTID( 12) f DAY (2) pRUNTMF(P) p 1 PAGE 
' COMMON /TAPE IN/ CHAN1 U 00 ) »CHAM2 ( 100 > • CHAN3 ( 100) pCHAN 4 ( 100 ) f 

1PARID( 100) r CHANID(200) p UNITS (200) t DEC ( 20 0 5 pNP AR 1 

■“COMMON '/TAPE'/ ' ' T ST A K TV T S T 0 PV IN T 1 * I N T 2 » I AVE r NSETS p INPUT p ATTME * TIME* ‘ 
II END . 

I MTlGER Cl !AN t r CH AM2 » CHAN3* CHAN4 1 RAP ID > CHA NI P p UNITS p UN ( 100 ) pD( 100) 
REAL”' INPUT 

DIMENSION ‘INPUT (100*50) p AT I ME (50) * DATA (200) # MUM (10) 

INTEGER PGAGE _ _ ! 

I r l r E G ER" BL A N K 7 F ( 2 2") 76 f 2 2)7 V ( 1 4 ) 

INTEGER DEC p DAY # R! fNTME * TEST ID 

DATA BLANK /* ♦/ 

DATA 'PGAGE'""/ * PSIG* » A* 


DATA F ( 1) »F(2) »F (4) pF(6) pF( 8) pF( 10 ) pF( 1?) pF( 14) pF( 16) »F(18) pF(20) p 
IF ( 22 ) /* (F 9 . 1 p * p 10 *»F 3 1 . * t * ) ’/ 


DATA V ( I) p V ( 3 ) p"V ( VJTV CS )7“V('6)7V‘C8 Tp VT9“) # V ( TO") p V'ClT)7 V (T3T7T(T4T 
1/UaXfH M8XPI3W 6H)/3 Xp»p 6HTIME* * * *3X# *p M5XpA6’p 

26H)/4Xp * r 6HSEC * p_3. «Xp * * f (5 XpA6* p ♦ V) */ 

“ DATA G(22) '/ ’ )♦/■'” " "" 

DATA HUM/ * 1 * p • 2 1 p ' 3 * p • 4 * p * 5 * * * 6 * p * 7 • p • 8 * p 1 9 * p * 10 * / 

ki:htr=i _ 

TOO REAuil) NCMaNpTINEp "(DAI A( I ) »T=1 pNCHAN) ' 

IF (Tl^E.t-T.TSTART) GO TO 100 

BACKSPACE T 


^ . 
L. 







% 
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C 00777 
QQ077U_ 
000779 
000780 

ooo?ai_ 

“OOU7B2 
Li UU7:i3 
0 1 j U 7 3 4 
0 90735'""* 
C 30756 
_H>U767 __ 
l'-JU7;i'a 
100789 
000790 _ 
000791" 
C0U792 , 
CO 0793 _ 
” CO 0794 
0 0 u 7 9 5 
_C 00796 '• 
0 0 0797'™ 
C0U798 
00o799_ 
"C JO 8 0 0 

oooaoi 
_00u3J2__ 
G 0 U 0 U 0 
000B04 
00080b 
UOLUiUfi"*" 
O'loOO 7 
O'JOiuJb 
~ 0 0 U 5 0 9 ~ 
000810 
000811 
“OU 0812"" 
U u 0 4 1 3 
0 0 L>6 1 4 
0 U U 5 1 5 
000816 

0 G U 6 1 7 _ 

000818 
00U619 
__ 00OH20 
0 0 0 821 ~ 
000822 

0 U 0623 _ 

0 (JO 824 
0GU825 

0 0 U 8 2 b 
U UUb27~ 
00082b 
_ 0 00829 
0 U o S 3 U " 
000831 
00 Ob 32 
00 Ob 33 
(J U'O 8 3 4 
0 u 0 6 3 b 


: ENTRY TAPES 

250 KENTf<=2 1 

260 N SE T S - N SETS + 1 

DO 270 J=1 f MPAR 

,'270 INPUT ( J * NSETS) =0 . 0 . _ 

~ '/v T 1 [-1E ( USE TS ) =0 .0" 

DO 300 1=3 #ir!Tl 

9 L A U M ) ! !C H A V * T 1 ( DA TA ( J) > J=1 » NCN AN) 

I F ( KEMTR . EO . YY "GO TO " 3*10 
IF (TIME.OE.TSTOP) GO TO 310 

_ 300 __co(mnuE__ 

310 FiAVErl 

320 A T I ME ( NSETS ) = AT I ME < NSETS ) +TIME 
DO 350 J=lfJJp_AR ; . ■ 

"r'.i=i 

K=CUAN1(J) 

PAR=i)ATA ( K ) , 

UN(U)=UUITS(K) 

Qt J)=DEC(K) 

IF (CM AND ( UKEQ .0) GO TO 350 

N=2 " ' 

K=C!!AN2( J) 

PAU=PAR+|>ATA(K) _ 

IF ( CHAN 3 ( J ) .EO • 0 ) GO TO 350 
N=3 

K=CI!AU3(J) 

P AK=PAR4f3 AT A tK‘) 

IF (CHAIJ4 ( J) #E0* 0 ) GO TO 350 

N=4 

K“Cl iAN4 ( J 5 

PAU=pArt+OATA (K ) 

350 I NPUT ( J# ( IbETG ) = I NPUT ( J> NSETS ) +PAR/N _ 

IF ( f j A y fr . (j £ V I A V E 0 fr.’’T I ME • G E • T STOP) GO TO 450 

•DO 400 1=1 f I NT2 

PE AO ( 1 ) r ! C H A N » T I M E f ( D A T M J) > J=1 1 NCH AN) 

i f u r i eYg'e t s to f r ) "go” t o 4 To 

400 CONTINUE 

' 4 10 MAVC=NAVE+1 ' 

“ GO TO 320 " " 

450 DO 500 JzlrNPAR 

INPUT ( J r NSETS) =1 NPUT < J t NSETS) /NAV E 

rp (' u r j '( J ) . r i £ . P G A G E )" *G 0 " TO 5 0 0 

INPUT < J' MEETS) = INPUT < ONSETS) + 1 NPUT ( 1 # NSETS) /2. 0 36 

UN ( J ) = 1 PS I A ' _ * 

5 00" CONTINUE 

ATI.-1F( NSETS )=ATI ME (NSETS) /NAVE 

IF (MSETS.LT. 50. AND. T1 ME >LT>TSTOP) G O TO 260 

IF' ( I E Ml ) . F u . o’ )’ I < F T U RN~ 

DO b()0 K=1 * NPAR t 10 

I PA f iE = l PAGE* 1 1 

"L=K+9 

NCOL= 1 0 

IF ( L . LE . NPAR ) _GO_ TO 550 

” L=NPAR * . 

NCOL=riPAF^-Ki- 1 

550 V(2)=NUM(MCOL) ‘ 

V ( 7) =NU:-*i (NCOL) 

V( 12)=UiJM(riCOL) 

V:R 1 TF (6f6ub4) I PAGE 
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000637 
_000838_ 
U U0839 
000840 
J0U641 
‘ OU0 64 2'" 
000843 
000644 _ 
000845" 
0.0 0846 
0 00847 _ 
000048 
000849 
00 0680 
"U 00881 
00 0 852 , 
0 0 0863 ' 
000664” 
UUL 


“000867“ 
000888 
0006B9_ 
‘ 000690 
000891 
0 U u 692 
' 000693" 
000894 
(10 0 899 


■ WRITE (6rV) ( I * I=K > L) * ( PARID ( I > * I=K » L> r ( 'JN < I ) * I=K t L) 

/ V=1 • 

DO' 980 f=KVL 
M=M+2 

p560 F(M)=D( I ) 

00 962 “1 = 1 *M 
982 G(I)=F(I) 

IF { M • E3.21) GO TO 60C 

Kl=M+l" 

DO 905 I=M1»21 

565_G( DrMLAMK 

600 WRITE (Or (i) ( ATIME ( M ) * (INPUT ( I *M) t I=K * L ) » *4=1 1 NSETS) 


6000 FORMAT 
_6090 FORMAT 

RETURN 

END 


( 12A6* 12X * * DATE »r?.A6**TlMF P2A6) 

( L \ f 52X ^_VLH2_PUMP JEST** 44X r .’P^b^.. 


► f 14) 


C SPLINT “CALCULATES INTERPOLATED POINTS AMD DERIVATIVES 
C FOK A SPLINE CURVE 


140 

900 


L /SK+(Y(K)-Y(K-1> )/SK-(EM(K)-EM{K-l) >* sk/6. 

02 Yu X= ( X ( K ) -2 ( I ) ) *EM ( K - 1 ) /SK + ( 7. < I ) -X (K-U )*F H(K)/SK 
' R C U i < V = C (. 1 ► +0 YOX **';> ) * * 1 .9)/ A OS ( b 2 YD X )"~ 

CONTINUE 

RETURN _ 

“END 

SUBROUTINE SPLNE (N*X*Y*EM> 

INTEGER SR ,v 


f. 

. u 
.... k 


0 0 0 6.56 • 


SUBROUTINE SPLNT (N * X * Y *EM r XX * YIMT) 

' ‘ !■' 

'““000697 

0UU699 

C J j699 

1000 

0 1 i'iENS TON" 2 (1 0 ) #~X ( 25 ) t Y { 25 ) *EM(25) 

FORMAT. (♦ SPLNT USED FOR EXTRAPOLATION U 3E20 .7/ ) . . , 

MAX=1 .... 

i 

f 

OOU 60 O 


2 ( 1 ) =XX * 


0 JU661 


001401-1* MAX 


0 JU6o2 


K = 2 

.A 

’"“'0 J0663 


iF(2(I)-X(l) ) 70 * 60 * 90 


000664 

60 

YINT =Y ( i ) , 

't' 

0 0 0669 


SK=X(K)-X(K-1) 

* *,.V 

0 JU666 


“60' TO '130 " 


0 JO 667 

70 

IF (ZlI)-<l.l*X<l)-0.1*X<2))) 75 * 1 2 0 f 120 


000668 

75 

WRITE ( 6 * 1 U 00 ) Z(I) *X( 1) *X(2> 


OOU669 


sr<w=i6” . 


000870 


. GO TO 120 1 

V-- 

000671 

on 

K=M 


O0O872 


~i r “ t zrrr-Ti * r* xtni-ovt* x ctpt> ) ) 12 ott? 0 * a s — — — ; 


000873 

85 

WRITE ( 6 r 100 0) Z(T) »X(N-1> f XCN> 


00 06 74 


SR W=1 6 ‘ * " . . 

*:■ 

G0Ob75 


GO TO 120 ‘ j 

b 

U 00876 

90 

IF(7(I)-X(K))120fl0ONlf) , ■ • 

L 

000877 

100 

TINT' =Y(K) 

. . r ’ 

000676 


sk=x(k)-x<k-n ■ * • 

i' ; 

000879 


GO TO 130 , 

[r 

0 J'J860 

no 

K=K+1 * 

r 

~~ 000861 


'IF(K-KU90*9U*8O 

6 

000662 

120 

CONTINUE . 

‘ fc 

00 0883 


SK = X(K)-X(K~1) • * ..... . 


00 0884 


"YINT r E MTK - IT*" TXT K P-ZTTT> **3/6T~7si?+f M (XT5T2T I ) -XTK-D V **3/6 . 

1 

000689 


1/SK+{Y ( K ) /5K-EM ( K ) *SK/6 * ) * ( 7. ( I ) -X CK-l ) > M Y ( K-l ) /SK-EM ( K-l ) *SK/6. 

t 

t- 

OOutUTb 


2 )*(X(K)-Z(I) ) 

F 

i 




/ 


000897 
QuOc/JB 
“00 0399 
000900 
U'JOMOI 
J:ju'>02 
000903 

000904 

0 * j U 9 U 3 
000906 
000907 
~0Ju9l>8 “ 
00 U 90 9 

0 0 0 9 1 0 

~0o 09 1 i 
000912 
0UU913 
” 0 6 0 9 1 4 ~ 
00U915 
_OO0916_ 
Ou 09.17 
0 0 0918 
00 091 9 _ 
“'|J0U9^U“ 

0 0 0 9 2 1 
Jlu4922_ 
000923 
000924 
09 ii 928 
0 0 u9 5. 

O' fU'J / 

U'?<rV.3 
000929 
00 0930 
J-JU931 
000932 
00 09 3 3 
00 0934 
“’0 00933" 
00u936 
__09U9 57 
QUO 933 
U 00 939 
_C0u c »40_ 
~ 000941 
000942 
_ 0 0 U 9 4 3 
U 0 J 9 4 4 " 
000946 
_ 09U946_ 
00 094 7 
(i J 0948 
__ 0U0949__ 
OU 09 30 
000961 
000962 
0UU753’’ 

0 0 0 664 
0U0 UC '6 
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0 SPLINE CALCULATES FIRST AMD SECOND DERIVATIVES AT SPLINE POINTS 
C' END CONDITION- SECOND DERIVATIVES ARE THE SAME AT END POINT AMD 

"c A Oja c en i f~ v o i NT ””” 

c / 

/_ p 1 MENS I :on X ( 2 5 ) * Y ( 25) *£M(25 ? »G ( £5) >SP(?5) * SLOP£ ( 25> >CUR V<25) 

~ SRW=0 

SU(1)=-1.0 

6I.D.T). 

7ib=ri-i 

IF (NO-2) 20*7*7 


3K 


JO. 

20 


DOl U 1-2 * NO 

'"AitXa')-X'fr-in/6. 

C=(X(I+1)-X(I) )/6. 

V; = 2 . *< A+.C i - A*5 , B ( I- 

"su‘( i)=c/vi 

F=lYU + !)-Ym )/(X(I + l)-X<I) )-CY(I)~Y<I-l> )/(X(l)-X(I-l)) 

G < I > = < F-A + 1 * ( I -in /_W_ 


1) 


30 


CM iri) =G t N-i 3/(3.. +SB < N-l ) ) 
DODO] =2* N 

K=riH-i_ 

E M t K ) - G ( K J -SB ( K ) *EM ( K + 1 ) 
SLOPE ( 1 ) = ( X < 1 ) -X ( 2) >/6. 

1)) 

D04UI: 


♦ (2. *EM<1)+EM(?) ) + (Y(2)-Y(l) >/(X(2)-X(l . 


=2 tU 

40 SLOPE (I)=(X(I>-X(I 

1D-JUMJ) 

""'DU 


•1) )/6. * ( 2 ♦ *EM(T)+E ,J i(I-l) > + (YCl)-Y(I-m/(X( 


45 

"60 
{ (Ml 
1040 


:77m ) 


46 1 = 1 *N 

CUP V ( I ) = { ( 1 . +SLOPE ( I )**£)** 1.5) /APS ( EM < I ) > 

IF (SRW) 50 * 100*50 

l<iJ lit (r„ Um.O) t j* < X ( T > 7 Y < 1)7 SLOPE ( I ) »FM ( T ) > CA )RV (I ) > I* 

f : > ! ! 1 1 : M 

y <jh m A r t'lM 5? If in . of POINTS = * 1 3/ 1 0 X * 1 MX * 1 9 X > 1 H Y » 1 9X t SHS LO PE f 1 5-X » 
iLM * 15X * 4HCURV / ( 5E20. 8 J ) 

- END 

SUBROUTINE SATUR(M) 

COMPiCEfi CljATA'= 

COMMON /SAT/ 


SHORT) 

MS AT (25) *PSAT(25) *TSAT<?5) *SSAT(25> *RHOSAT(25) * 

1EMPT (25) *EtfPS (26) * EN'.TS(25) *EMHS{?5) *E MRHO S ( 25 > /_E M TP_( 2 5 )_» 

2MS A T M ( 2 5 ) * SS AT V ( 25 ) VrHOST V ( 25 ) V EMHLP ( 2 6)7 FMHVP ( 25) * EMSLP (25 ) * 

• 3EPSVP(25) * ENROL? £ 25 ) *£MR0VP(25) *EMPH{?5) 

C * ** SATURATION DATA __ - • r 

o A 1 A I 15 a V 7-132771 *~ 1 52 . 25 * - 1 20 . 29 * - 1 26 . 1 3 * - 1 22 . 7 8 * - 1 19 . 2 * -1 1 5 . 3R> r 

1- 1 1 1 , 3 l r -1 10 • 1 8 t -106 • 96 * — 1 02.31 * -97*32 * -91 • 966 * -86 . 208 * -79 *959 * > , 

2 - ' 7 3 . 1 7 o * - 6 6 . 7 3 3 t - ' 7 • 4 3 f> # - 4 8 . 0 0 9 * - 3 <-> • S' 7 6 _t - ? 2 •}} 5 8 i .16 • . 550/ » 

P6AT / \ . 0214 /1.1433* 1.954 6r 3.7 30? * 4 . 7762 * 6 . 9953 * 9. 8904 * 1 3 . 564 


DAT i\ 

1 1 14. 69.6 r 18. 120 * 23.705* 30 .406* 38.371 *47.688*58.519*70.967*85.149* 

2101 .2! *119.30, 139.63* 162.40* 187.51/ .1 

‘ ' d'aT A T S AT / 24 /A 4 ' i » 2 5 - 2 * 27 ♦ 0 "* 3 8 . 8 * 3 0 . h * 3 2 • 4 * 3 4 • 2 * 3 6 . 0 * 36 . 4 8 2 * 37 • 8 * 

139. b * 41 . 4 * 43 .2 * 45. 0 * 48. 8 * 48*6 * 50 . 4 * 6? . 2 * 54 . 0 * 55. 8 * 57. 6 * 5°. 3568/ 

DA T A 55 A T / 1 , 1 84 91*1.20743*1.31 999 *1.43138*1.64157* 1 . 65296 » 1 . 763 15 
'It 1 . 87672 *1.9 0 634 * 1 ”• 98628 # 2 ♦ 1 0 ? 0 4 * 2 • 2 1 81 6 * ? • 3 366 5 * 2 • 4 575 1 * 2 . 58 1 93 * 
22.71227, 2 . 64 553*2. 99428 *3. 16306*3. 33553 * 3 • 56422 *4.1 9696/ 

DATA CMOS AT/ 4 .80 86* 4.7975* 4.7434 * 4.6884*4.6298*4 .5693*4.6055* 

“14 1 1| o7 ' t 4 . 4 1 8 5 * 4 • S f » 6 ii 1 4 . 2 8 8 9 » 4 . 2 0 8 6 * 4 . 1 2 0 5 * 4 . 0 2 56 * 3 ♦ 92 2 6 * 3 • 8 6 8 6 * 

2 3 . 680 5 * 3 . 5 35m * 3 . 3664 *3.1578*2.8711*1, <->6 1.0/ 
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l?.0 WRITE (6# 2000) XMINr XM4X t PP i ENTR » K 

2U00 FORMAT ( * MINIMUM TAQULATTO_PJ^E^tJRE MtS_ GREA TER THAN PV 

' J» PM I N=~» r’F 1 0 ♦ 2 t 5X » f "PM A X=: * »F10.2i5X' * P- 1 fFi0.2r5XrA6»I2) 

/ RETURN 

■130 WRITE (6*20)0) XMIN r XMAX r PP * ENTR , K ... 

~~2 0 1 0 ' F 0 It M A T T *” M A X I M U M ~ f A RUE AT E b" P R E S S 0 R E IS LESS THAN PV 

1* PMlNs* *F10.2* 5K* *PMAX= f *Fi0.2f5Xf , P= , »Fl0.2*5X*A6*I2) 

RETURN _ — 

* 140 WRITE' (6.2020) XM T N f XM AX * TT * EMTR * K . 

2020 FORMAT {* MINIMUM TABULATED TEMPERATURE IS GREATER THAN T / 

It Tm i r J- * ? F 1 0 • 2 » 5X •_* T^XAXp * » F 1 0 « 2 r $X > * T- f » F 1 C i2 >_5X W\6.*J.2J — 

rfYurn 

150 WRITE ( 6 r 2 U 3 0 ) XMIiUXMAX #TT »FNTR »K. 

2030 FORMAT {♦ MAXIMUM TABULATED TEMPER ATURF_TS LESSTHAN T*/ 

1 * ..r|viiu= ? f F’lO .?.5XV « TMAX= • ’#F10.2 t 5X r * T= * * FT 6 . 2 * 5X » A6 f 1 2 ) 
RETURN 

160 WRITE (o.2040) PSAT * PP *FNTR » K ~— 

— Oao“ FORMAT T’” P" IS“' LESS'' THAN SAT • PRESS. CORRESPONDING TO T*/ 

1 * PS A -.T- ♦ f F10.2.5X* t P= l f F10.2» 5X» A6* I2> 

JFLG=6 

“return 

C ENTRY FOR TEMPERATURE (PP.HH) 

C _ 

ENTRY PHTEMP (PP » HH t K fTEMP * X * JFLG) 

ENTR=''PHTEMP T 

IF {PP.GT.PCRIT) GO T0 200 _ 

CALL " SPLNT't N r \ ISAT * PS ATI JR * EMPH * HH r PSAT ) 

IF (PP.LT.PSAT) GO TO 260 

200 CALL H °ROP(PP»H!ir T»H*3# 1 1 TEMP .J FLGj.X MTNfXVAX) 

IF (JFLG.GT.1) GO TO 210 

X=U.f) 

RETURN — 

“c "ENTRY FOR DENSITY (PP.HH) 

C 

ENTRY P H D E N S ( PP*HH * K»_R M 0 > RHOL* X * JFLG > 

EM T R = Tp in Q it N S * 

IF (PP.GT.PCRIT) GO TO 201 

CALL SPLNT ( N . HSAT * PSATUR * E MPH » HH > PSAT > 

IF (pP.LT .""PSAT ) GO TO' 2B0 

201 CALL HPROP tPP.HM.SV. Hi 3* ?.*C* JFLG»XMlMf XMAX) 

I F ( JFLG . GT . ll,.6P_rO_ 21Q 

ri ■io-i • /c 
x-u.o 

RI !OL=0 .0 : — 

“return 

C ENTRY FOR ENTROPY! PP » HH ) 


~ r f JT R Y PHENT R~( PP r HH » K f E NT R 0 r JFLG ) 

ENTR= 1 PHENTR T 

IF (PP.GT.PCRIT) _GO TO 202 

CALL"’ SPLNT ( Mr MS AT r PSATUR » EMPH »HH * PSAT ) 

IF (PP.LT.PSAT) GO TO 290 

202 CALL MPR 0 P ( PP » HH ♦ S r H »_3 » 4fENTP0> J FLG * X M I N > X M A X_L__ 

~ r F ( jp L g . GT . 1 r GOT 0 210 
205 RETURN 

210 GO TO ( 205 » 120 * 130 1 240 . 250 )» JFLG 

240 WRITE (6» 3000) XMlN r'XMAX # HIU ENTR . K 
„nin FOiVnT (’ MIMIMIJ-1 TASUUATEt) FNTMaLPY IS HEATER THAN H’/ 

1 * 1 1 : ,'i I r ; — • r F10 • M r bX » * ;jflAX= * f F10*0**^y » Mi-* »F 1 0 • 4 / 5X ► AF^T.2) 


3? 
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001077 

ooi07a__ 

“001079 

001030 

0 0 1 0 3 1 

~0U I0tl2 
0010 33 
_0J10B4__ 
001033 
001086 
__0U1UM7_ 
001 083 
001089 
001090 _ 
“ 001091' 

0 01092 / 

0 01093 

” 0 0 1 O' 9 4 
001098 
001096 ' 
001097 
001098 
0 0109 9_ 
"001100 “ 
0U1101 
_001102_ 
001103 
0 0 i 1 04 
_001108 
001106“" 
0011U7 
001108 
""0 01109 
001110 
001111 
001112 
001113 
001114 
■“001115“ 
001116 
001117_ 
001118 
U 0 1 1 1 9 
001120 
"001121“ 
001122 
001123 
“1)01 12 4“' 
001125 
0PJL12o 
“’0 01127“ 
001128 
001129 
' 001130 
001131 
0 01.1 32 
0011 33 
001134 
.00 1 \ 36 


250 WRITE (6f 3010 ) XMlNt XMAX r HH fENTR #K 

3010 FORMAT' MAXIMUM TABULATED ENTHAL PY IS LE SS TH AN HV 

■'7 '1 *““HM I N = * # F10 • 4 »5X p r HMA“X= » » F10 . 4 _ # 5X t * H= * f F 10 . 4 1 5X r A 6 1 1 2 ) 
RETURN 

■'260 CALL SPLNT (N pPSATUR * H C -AT ♦ EMHLP t PP fHSATL) 

" C ALL “SPLNT IN # P 5 AT! UR 7RS A T VP V E MM V P V P P f HS A T V > 

CALL SPLNT ( N p PSAT' JR p TS AT p SMTP p PP p TEMP ) 

IF (HM.GT.H5AT 7) GO _TO 270 

X = (HH-HSATL) /'(I iSATV-HSATU ) 

RETURN 

270 WRITE <6# 3020) P_SAT # PP p HSA_TV #_HH » FNTP_ f K 

3020 FORMAT T» P IS LESS’ THAN SAT. PRESS. CORRESPONDING TO H AND 
1REATER than H SATURATED VAPOR*/' PSAT=* .F 10. 2p 5Xp *P=* pF10.2p 

2 * HS A T v = * # F 1 0 . 4 *_5X p_^ H=J r F 1 0.4 <-_5X * A 6 r I ? ) , 

'jFLG-6 

RETURN 

280 CALL SPLNT ( M pPSATUR p RH05 AT » EMROLP » PP » RHOL ) 

~ CALL* SPLNT (nVpS A TIHrVr! i O S T V # F.MROVP t PP # RHOV ) 

CALL SPLNT ( N # PS ATUR f HS AT p EM! JLP * PP r MS A TU 

CALL SPLNT ( N # PSATUR # HS ATVP f EHHVP p PP p HSAT V ) : 

IF '( HH .' GT .'HSATV ) GO '76“ 270 
X= ( HI I-H5ATL ) / ( HSA TV-HS ATL ) 

RHO=R[!OL*RHOV/'(X+RHOL+ ( 1 .^XHRHOJl! _ 

RETURN 

290 CALL SPLNT (N .PSATUR * SSAT r EMSLP . PP r SL ) 

CALL SPl .NT ( N . PSA'H IR p SSATV » EMSVP » PP » S VP )_ 

” C A L L S P L N T ( f J . P S A T U I (7 H SAT # E M I- !L P p PpYHSATU 
CALL SPLNT ( N # PS ATUR f HS ATVP f EMHVP r PP f HSATV > 

IF (HH.OT. HSATV) GO TO 270 

~ XS= ( HH-HSAT L ) / ( HSATV-iiSATL ) 

ENTRO = XS*SVP f ( 1 • -XS ) *SL 

RETUR N . 

C ENTRY FOR ENTHALPY CPPTSS) 

C 

ENTRY P SE N T H ( P Pf SSfKfENTHf jflg) 

enTr’=* psenth *" 

■ IF (PP.GT.PCPIT) GO TO 300 

CALL SPLNT ( N # SSAT f PSATUR f E MPS > SS > PSAT ) 

"IF ‘ (PPVLT.PSAT) GO“TO 360"" 

300 CALL HPROP(PPfSSfH#Sf4#3fENTHf JFLGfXMTNfXMAX) 

_IF (JFLG.G1.1_) G_0 JO _3l_0 

'305 RETURN 

310 GO TO ( 305 p 120 # 130 p 340 » 350 ) r JFLG 

340 WRITr ( 6 f 400 0 ) XMIN # XMAX f SSfENTR # K _* 

4 0 00“ FORMAT ( * MI N I M U M"' T A R U L A T E (7 ~E N T HO P Y 15 GREATER THAN S'/ 

1 * SMIN=* f F10.5>5X# *SMAX=' » F 1 0 • 5 * 5X * * S= f f Fl 0 • 5 » 5X * A 6 1 12) 

RETURN _ 

— 35CTWR ITF” ( 6 f 40 1 0')"" X M I N7 X M A X V $ S f E i IT R f K 
4010 FORMAT (' MAXIMUM TARULATED ENTROPY TS LESS THAN SV 

1 « b M I N = * f F 1 0 . 5 f 5 X f *SM A X = * t F 10 • 5 f 5 X f *S=* • F 10_. 5 F5VFA6FI2? 

RFTURN 

360 CALL SPLNT ( N t PSAT' JR r HEAT t EMHLP t PP f HSATL ) 

CALL SPLNT ( N f PSATUR ^ HS ATVP f FMHVP i PP * HSATV) 

CALL’ "SPLNT (Nf PSATIJR# SSAT . EMSLP fPp'‘fSL“) 

CALL SPLM1 <N f PSATUR ♦ SSATV f EMSVP pPPfSVP) 

IF ( SS .01. 5VP ) GO TO 370 

XS=(SS-SU /(SVf^-SL) 

F N T t i= X S * ( iS AT V ^ ( 1 . -X S ) * HSftTL 

RETURN 

'■ ’,70 V'i-Uf w r AY H>r- f'.VPf SS.FNTR #K 
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33 


001137 
_OOU3a__ 
001139 
001140 
_C0.U4l_ 
001142 
001143 
001144 _ 
""0ni4b* 
001 14b 
001 147_ 
“001146 ' 
UOi 149 

001 150 

001 i 5 1 
001132 
001133.1 
”001194 
001193 
001130 - 
"ouiir>7“ 
001153 
_00l.li)9„ 
'OOl luO 
001141 

UOI ) tj 2 _ 
0011 m 3 
U 0 11 94 
till] 1 ( * 5 

mi! ! r,u 
Mil l I (, i* 

00 1 190 
" 0011 o9 
001170 
_001171_ 
001172 
001173 
_0U11 74_ 
0011/5 
001176 

001 177_ 

con? a 
001179 

_oonno_ 
oouai * 

001192 

_ouua3 

001154" 

001135 

001196 

001197" 

ooi laa 

001199 
“001190“ 
U 0 1 1 9 1 
__0U1192 
001193“ 
001194 
01)119*5 
unit ■'!) 


4020 FORMAT (» P 15 LESS THAN SAT. PRESS. CORRESPONDING TO S AND S IS G 

/ IRE A1 ER Tf IANS SATURATED VAPOR* / * PSAT='*Fl 0.2 *5 X> *?=* *F1Q.2*5X* 

7“2*SV=» * FTC .'b * 5X *♦ S= Y '*" FlO . 5*5X~# A 6 * 127) ~ ’ 

/ JELG=6 

1 RETURN _ . 

’ END" 

C** + * THIS SUBROUTINE READS IN THE HYDROGEN PROPERTIES DATA TO BE USED FILE 001 

C * * * * IN SUBROUTINE MPROP , FJLF_002_ 

- - FILF 003 


SUBROUTINE INPROP 
DIMENSION A (3 0 ) 


COM;.;Ofr7PROR7“Tr3O,50) * SV (30 * 50 ) r H ( 30 * 50 ) * 5 ( 30 * 50 ) * NUM ( 30 ) t P ( 30 ) * 

1 A A ( 5 » 9 0 ) * RHOX ( 90 ) *9(9*8) 

10 FORMAT (OF10.O) FILF 009 


20 FORMAT (2513) 

C 

C****_READ NUMBER O r DATA POI NTS FO R EA CH I SOBAR 

“c 

READ (5*20) (NUM(I) *1=1*30) 


DO 50 .1 = 1*30... 
M=NUM ( I ) 


C****_ READ TEMPERATURES.. FOR ISOBA R I 

' C ~ ‘ ~ T ' ~ 

READ (5*10) (T(I*J) *J=1*M> 

C 


C'r+V* “rEAU"SPEC I FIC VOLUMES FOR ISOBAR I 
C 

READ (5*10) (5V(I* J) *J=1*V) 

’ c ' 

c + +++ head mhhA! Uys i ou iv'n an’ ! 

c _ 

„ READ (6* 10 f imiTJ) *J=3.*M) 

c 

C** ** R EAD EMTROPYS FOR_ ISOP.AR I 

T ' 

50 READ (5*10) ( S ( I * J) * J=1 * M) 


"c - * +***'" c on vert Pressures from "atmospheres to psia 
c 

•A(l)=l. - 


A(2)=1.5 
DO 55 1=2*10 

55 A( I+1)=I 

' A(12)=12.5 
DO 60 1=1*6 

60_ A ( 1 + ) 2) = 1 0 + 5 *1. 

"no 65 1 = 1 V 5 

65 A ( 1+2.0) =50 + 10*1 

00 70 1=1*5 

70 A U +25) =100+20*1 ‘ 
DO 90 1=1*30 
80 P( I )=14.69o*A(I)_ 
"25 FORMA T ( 5E 1 6 . 7 T 
'30 FORMAT (10F8.4) 

35 FORMAT (4C20.fi) 


C**+* READ EMPIRICAL COEFFICIENTS 
C 

? ? p AD ‘ (5* :> 5) ' f A A ( T * J ) * J= 1 * 94 ) * T ~ i , 


FILE 010 
FILF Oil 
FILF_012_ 
FILE C 13 


FILF 016 
FILE 017 
FlLE_-ni.B_ 
FILE 019 


FILF. 0?1_ 
"FILE 022 
FILE 023 


FTI.E 025 
Mi.i IRH, 
FILE J)27_ 

FILE 029 
FILE 030_ 
TiLE"031 


FILE‘_037_ 

‘FILE 038 
FILE 039 
_J_FTLE„04 0__ 
’ PTLC 041 
FILE 042 

FILE 043 

FILE 044 
FILF 045 
__ FILE 046 
"FILE ”0 47 
FILE 046 


JdLELOSO 
FILE 057 
FILE 056 
FILF 059_ 
"FILF" 060 
FILE 061 
FHF 062 
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74 


£ 


t) 

i 


001197 
001 190_ 
001199 
001200 
001201 
"GO 1 202"“ 
001205 
001204 __ 
'001205 
001206 
_ 0 0 1 2 0 7_ 
u 0 .1 2 U b 
0 0120 9 
001210 
*001211 " 
001212 , 
001213 
*001214*“ 
001215 
_0 U 1 2 1 6 
001217 “ 
0012111 
_001219_ 
0 01220 
001221 
001222 _ 
’ 001223' 
001224 
0 0 1 2 2 5 _ 
~U 0 1226* 
001227 
0 0122:1 
~ 0 0 12.29 * 
001230 
_ 001231 __ 
00 1 232 
Ouj.235 
001234 
“001235" 
001236 

00 1 237__ 

00123b 
001239 
_JJ 01240 _ 
001241 
001242 
00i243 
"“'00 1244” 
00124b 
00 1 24 
001247 
001246 
0U1249_ 
001250“ 
001261 
001262 
“03 1253* 
001264 
001256 


READ (* 5 * 30 ) (RHOXCI) * I=i*° 0 ) 

READ (Sr 35 ) ( ( D( 1 >U) *J =l* fl) *I= 1 »P> 
"RETURN 
END 


FILE 066 


C * * * * SUBROUTINE HPROP **** 


HPPOPOOO 

~C#* *’*“ T H * 1 6 " 6 ufi R CUT I N E~~P R 0 V ID 5 R 0 GEN’~PFR)PER TI^ DATA TOHP^OPOni' 

c**+* THE MAIN PROGRAM! HPROPOng 

C + +** SUCTION LINE SPNIC VELOCITY AS A FUNCTION OF TE MPE RATURE AND HPROP 0 O 3 

‘CiV* ♦'""PRESSURE HPROPO 04 

C**** INDUCER INLET SPECIFIC VOLUME AS A FUNCTION OF TEMPERATURE A NO HPRDP 005 

C**** PRESSURE 

INLET SPECIFIC VOLUME AS A FUNCTION Of 7 TEMPERATURE AND 


C + + ** PUMP 
C++** PRESSURE 
C 


SUBROUTINE HPROP < A'flif YVx * K J * K ~*C * JFLG* XMIN* XMAX) 

"DIMENSION X(30r50) *Y (30*50) rCP(2) 

COMMON /PROP/ T (_3 0*50) * S V ( 550j_5 0 )j HJ .30 *502 » S (3 0 * 5 0 ) > N ( 3 0 ) * FI 3j?jjL_ 


HPROPO 06 
"HPROP 007 "* 
HPPOP 006 
HPROPO 0 n 

’ \ 


iAA (6*90) *RHOX(90 ) *f 1(9*6) 

COMMON /SAT/ HSAT ( 25 ) tP5AT(25> » TSAT ( 25) *5SAT(25) *RHOSAT(25) ♦ 
lrMPT ( 25) * r MP r . ( 25 ) * EMTS (25) *EMHS<25) *FMRH05(25) *EMTP(R5).*_ 


*2 MSA T V ( 2 6 ) r SS A T V ( 2 5 ) » R H 0 ST V ( 2 5 ) * EMHLP ( 2 r > ) *EMHVP(25) *EMSLP(25) * 
3 E MS VP ( 25 ) * EMROLP ( 26) * EMROVP ( 25 ) r EMPH ( 25 ) 


C++** P 
C** + * X 
C++** Y 
“C ++** N 
C++** A 


Ts "the"* pressure array 
is the independent property array 

IS THE DEPENDENT PROPERTY _ ARRAY 


J-'IPR 0 P 012 _ 
HPROPoYS 
HpRO °0 1 4 
HPROPO 1 5 


HPROPO 16 
HPROPOl 7 
HPROPOl R 
HPPOPOX 9 ’ 
MPRopOpO 

» ENTHALPY* ENTROPY OR SONIC VELOCITY HPROP 02.1 

* HPROP 02 2 


IS“THE 'OK'"' DAT A '“POINTS' FOR EACH ISOBAR ARRAY 
IS PRESSURE 

C + + ** 0 IS the SECOND INDEPENDENT VARIABLE ' _ 

"C* + * *" K J UETERM I NFS' '* If IE INDEPENDENT* PAR AMETF.R USED 
C++** KJ=1*R IS TEMPERATURE 

C + *i* KJ NOT=l»H IS SPECIFIC VOLUM! 

‘C****"K DETERMINES Tl-fE'DEPEMDENT PARAMETER 'REOLESTED 

C++** K = 1*C IS TEMPERATURE 

C + + ** K=2*C_IS SPECIFIC _VOLUME 

K-3 *'C IS "EE'S TH ALP Y 
C++** K — 4 r C IS ENTROPY 

c * * * * k= 5 *c is sonic velocity __ 

“c +>* *” C" IS' TH F" " REQUESTED D E"PENO E NT PROPERTY 

c*»»* D IS THE array of empirical constants usfo in the saturated 
c * * * + p RES 6 UR E _ S U rlP R 0 G RAM .SVSL 

~c 

NSAT=22 

JFLG=1 ‘ 

1=0 

LINIT= 0 


~C****~$E X X M I N=M IN I MUM T ABUO T ED PRESSURE 
C 

XMIN=P(1_) 

“<r : “ " 

C***+ SET XMAX=MAXIMUM TABULATED PRESSURE 

C 

" XMAX=P C25 ) 

50 1 = 1+1 


"C** + *“ 5 ErtRCH PRESSURE:" T AGLE~ FOR VALUE CORRESPONDING TO A 

c 

IF(P(I)-A) 60*50*56 _ 

• r 


HPROP 023 

HPROPO 2.4__ 

HPROP 025 
HPROP026 
HPROPO?7_ 

“hpropgpb" 

HPP.OP029 
, HPROP 030 ■ 
’ HPROPO 31 

HPROP032_ 

HPROPO 33 
HPROP034 
__HPP OP 03 5_ 
HPROP036 
HPROP037 

HPROP03B_ 

HPP0P039 
HPROP040 
HPROP 04 1 
HPROP042 
HPROPO 43 
HPROP044 
HPROP045* 
HPPOP046 
HPROP047 
- ' |rpr»nnn/! ;> 
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001257 

C * + ** 

TABULATED PRESSURE IS GREATER than A * TEST FOR MINIMUM TABLE VALUE MPROP049 



; / 

/ 

001258 

c 


HPROP050 



V- 

" 001259 

55~ir“( 1-1) 200*200* 150 

HPR0P051 




0U1260 

C / 


HPROP052 



K 

t 

00 1 26 1 

c**** 

TABULATED PRF.SSURE IS LESS THAN a* TEST FOP MAXIMUM TABLE VALUE HPR0PP53 . 



■ | 

“C 01 262 

c 


HPROP054 



ii 

CO 1203 

60 

IF (1-25) 50 1 250 1 250 

HPROPOS5 



i; 

CO 1264 

c 


HPPOP056 



l; 

0U1265 

c ♦ ♦ 

"TABULATED PRESSURE:: a 

HPROP057 



t 

001266 

c 


HPPOPOSO 




001267 

80 

M=N ( I > 

HPROP05 q 



| 

C»U26tJ 

C 


HPPOPO60 



§ 

C 0 1 co9 

c*+** 

SET XMIN=MINIMUM TABULATED INDEPENDENT PROP, 

HPROP061 



' ti 

0 0 1 2 7 0 

c 


HPRO°062 



fc- 

C 0 1 2 7 1 


XMlN=X(i* i) 

HPR0PD63 



| 

001272 , 

c 


HPP OP 064 


* f 

h 

001273 

c*+** 

SET XMAX=MAXIMUM TABULATED INDEPENDENT PROP, 

HPPOP065 




0 u 1 2 7 4 

c 


HPPOP066 



1 

001275 


XMAX=X(I*M) 

HPR0P067 


i 


001276 ■ 


J=0 

HPPOP068 




C 0 1 2 7 7 

85 

J=J+1 

HPP0P069 



f. 

f . : ■ 

001276 

c 


HPROP070 



001279 

c**** 

SEARCH INDEPENDENT PROPERTY TABLE FOR VALUE CORRESPONDING TO 

B * HPP0PD71 



X;.;. 

001260 

c 


HPPOP072 

, 


j.- 

001261. 


IF (X(IfJ)-B) 95*100*90 

KPR0P073 



%:'■ 

001242 

c 


HPR0PC74 



V- 

001263 

C **** 

TABULATED PROP. IS GREATER THAN B * TEST FOR MINIMUM TABLE VALUE HPROP075 


t 


001264 

c 


HPP0PP76 




001265 

90 

IF (J-n 300*300*110 

HPR0P077 



- f 

00 12 MO 

c 


HPROP076 



h 

l 

ll'Jl.'.'M/ 

c * * * + 

tabulated prop, is less than ft * test for maximum taple VALUE 

HPPOPQ79 



V 

001266 

c 


HPROP060 



t 

001269 

95 

~ IF ( J-M ) 85*350*350 




1 

001290 

C 


HPPOP082 



w 

001291 

c***-* 

TABULATED PROP=B*SET C=T ADULATED VALUE 

HPRO p O A3 



0U1292 

c 


HPROP084 




001293 

100 

C=Y(I*J> 

HPROP085 



h 

001294 


GO TO 500 

HPROPOB6 



*; 

— — — — L 

001295 

c 


‘ HPPOPOR7 



| 

001296 

c**** 

INTERPOLATE ALONG ISOBAR I FOR C 

HPRCP088 

T 


if:; 

001297 

c 


■. HPROP089 



F-‘ 

001298 

110 

c=y(i * j-i) + <n-x'(i*j-i> )/(xci* J-i) )«(Y(i*j)-Y(if j-i) > 

' HPPOPOPO ‘ 



i: 

001299 


GO TO 500 

HPROPOOl 




001300 

c 


HPPOP092 



•1 


001301 
001302 
001303_ 
~ U 0130 4 
001305 
001306 
' (to 130 7“ 
00130H 
.001309 
0 U 1 3 1 U 
0 0 1311 

0013 ; 5 
0 0 1 .> I 
0015* 5 

.lM ' ■■ ! , 


C**** FOR PROPER B 
C 


150 NM=I-1 

DO 160 IK=NM*I 

_ M-N ( I K ) 

'jK = IK-X+2‘" 

J-0 


*Ci**r‘SEf‘'XMIN=HlNIMUM TABULATED INDEPENDENT PROP, 

C ' 

XMIN=X(IK*1> . 

t: 

C + ♦ + * BET XMrtX=HAXIMlJM TABULATED INDEPENDENT PROP, 

C 

vv/\y:.x ( i !• >::) 


HPROP0°4 
JtPROP0^5_ 
Tip POP 0 ^ 6 " 
HPROPO°7 
HPRPP09A_ 
“HPROP099 

HPROPinl 
~HPR0P102 
HPR0P1O3 
HPPOP5. 04 
HPROP1 05 
HPROPi nr> 
HPPOPJ 07 
HP P DIM on 


I 

t- 



. I 

fctt 

w 



3 


3 

S 


1 


:n . 
% * 




001317 
ooi3ia 

"001319 
001320 
001321 __ 
"001322" 
001323 
0 0 1324 __ 
""001325 "" 
.0 0 1 326 
001 327 

" uoi 32 a 

001329 

001 3 30 

~ 00 1 331 
001332 , 
__0 0 1 3 33 _ 
001 334 
001335 
_ 001336 _ 
"0 01337" 
001330 
‘.M1339__ 
"00 1340 
0uI34 1 
_(M)I3<*2_ 
”001303 
001344 
_0U13Vb_ 
001346 
001347 
_ 00 I 34 B 
"001349"" 
00 1 3*30 
0 0 1 3 5 1 __ 
”U01 332 
001333 

001334 

001333 

001336 

00 1357_ 

001393 
001339 
001360 
00 1 361" 
00.1362 
001363 
“001364 
001365 
00 i 366 
“ 0 U i 3 o 7 
001363 
001369 
"U 0.1370“ 
001371 
001372 
'001373 
001 374 
001376 


_j^n>_u?a 24 9 / ?. » l o o * 

155 J=J + 1. 

“se A }Tc HTTn D EF£ N DE NT PROPERTY TABLE T^OR VALUE CORRESPONDING TO B 
IF (XUKr J >-R> _165_l170 a_16_0 


JTAT r -0 5 APR 7 ? 36 . 


c / 


c 

c * * * * 

_c_ 

160 

c 

c** **■ 

"C 

165 
_ C 

c ,**** 

c 

170 


tabulated prop* is greater than b>test for minimum table value. 


"if < J-l ) 300 f 300 1 550 ’ 

TABULATED, P R OP I fL S_JN1 A N_B XI M U il_.T AB L,F_ V AkUJL. 

IF ( J-N ( IK ) ) 155*510*510 


TABULATErP vXLUE=mVSET CP= TABULATED VALUE* 
CP (UK ) =Y < IKj J) 


HPROP109 
HPROP 1 1 0_ 

hprop'ui 

HPROP11 2 
__H°RO°l 13 
HPROP i 14 
HPROP- 11 5 

HPROP 1 16_ 

HP» OP 117 
HPROP 11 fl 
_ HPROP 1 1 9, 
*HPP OP 120 
HPROP 12 1 

HPROP 122_ 

HpROP 123 
HPROP124 
HPROPI 25.. 


60 TO lao 


c 

c * * * * 

~c*+** 

c**** 

jc_ 

510 

520 


HPROP 126 
HPROPi 27 

MAXIMUM TABULATED VALUE !•> LFS5_TKAN.„B^I)^J_S0IlAR_LE$5„TliAM_A — S„ET — HPPQp.l ?.‘L. 
1 AUD CONTINUE >Tf ISOBAR GREATER THAN A SET ERROR FLAG AND HPROP ’.RO 

RETUKN; ' _£pROPm_ 

Tq^iy52dT5207360- ~ . SpropIm 

LIMIT - l 

GO TO 160 : 


C 

C*** + 

c 

550 

C 

c**** 

“C 

175 


CHECK LIMIT SET=1 


Tf TlIMI f ) 175 *175*600 

LIMIT=0 » NORMAL INTERP OLATION SEQUENCE ON ISOBAR 


16 O' 
C 

c»*** 

~c 


CP < JK ) =Y ( IK » J- 1 ) + < B-X < I K * J-l ) ) / < X ( IK * U ) -X ( I K * J-l ) ) * 

1 (Y(IK>J) "Y( IKfJ-U ) . 

contTnue 


normal INTERPOLATION FOR C 


C=CP(i)+(A-P(I-l> )/(P(I>-P(I-l) )*(CP(2)-CP(1) ) 
60 TO 500 _ 


C 

c**** 

C ■ 

6 W 


LIMIT-1 » CHECK FOR TEMPERATURE AS INDEPENDENT PROPERTY 


HPROP 135 
HPROPI 36 

RPP0P137 

HPROP 136 
HPROP 1 39 

HPROP 140 

HPROP 141 
HPR0 p l42 

HPROP 143 

HPRO D l 4 4~ 

HPROPI 45 

HPROPI 46 

“HPP OP 147 
HPROP 146 
•. H PROP 149 
' HPROP 150 ' 
HPROPI 51 
HPROPI 52 


C 

C * + + * 
”<>** +" 
c 

610 


611 


612 . 
t>l 5 


"I F " "0< DTE q".TT ~G 0 " TO 610 
IF ( K J« EQ * 3 ) GO TO 611 

IF ( KU »EO » 4 ) G O TO 61g „ 

"GO TO 350 

TEMPERATURE IS INDEPENDENT P ROPERTY * FIND C ORRESPO N DING VAPOR 

"PRESSURE " 

CALL SPLNT ( NS AT aTSa T >P SAT a EM PT > B a PS L) 

"GO’TO Oirr ' ■' 

CALL SPLNT ( NS AT a H5AT * PSAT r EMPH 4L PSL ) 

CO TO 616 

CALL SPLNT ( NS AT r SS AT * PSAT * EMPS a B a PSL ) 

CO TO ( 62 0 m> 2 0 » o 3 0 » 640 , 64 5 ) a K 

P 7{] ;i r t .* ; ,t4\ T'-'O l.tOL'T'V rprc. VOL. r ORf;F r . n Ot ?DT NO TO “TEMPER ATU(?r -B 


HPROPI 54 
_RPR0P155_ 
HPR0P156* 
HPROP 157 


HPPOP160 

* HPROPI M 


/'■ 

■ ■ 6 : 

i 

f 


L 

"T 

H 

!•• 

-- I 
H 
l 

I 

I-’; 
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001377 

001378 

"001379 


620 CAUL SPLNT ( NSAT > PSAT > RHOSAT t EMROLP » P SL f CP < 2 > ) 
"CP(2)=iT/CK(2) 


HPP0P162 


001380 

001381 

j GO TO 650 

K|PR0P164 

HPROP165 


I 

"U 01382 
001383 
0 U 1 384 

C*i** KIND SATURATED LIOUID ENTHALPY CORRESPOND IMG TO TEMPERATURES 

C 

63U CALL SPLNT(N5ATfPSATfHSAT>EMHLPrPSL>CP(?.) ). 

HPROP166 

HPR0P167 



001386’ 

001386 

001387 

GO TO 660 
C 

C***+ FIND SATURATED LIO’JIO ENTROPY CORRESPONDING TO TEMPER ATURE=B 

HPR0 P 169 

HPROP170 

HPROP171 



001386 
OU 1389 
UOJ 390 

C 

640 CALL SPUNK NSAT > PSAT rSSAT#EMSLP»PSLrCP<?) ) 
GO TO 660 

HPR0P172 

HPR0P174 



1 00 1391 

00 1 392 
001393 ' 

C 

C**** SET SATURATED LIOUID SONIC VELOCITY 

C - 

HfR0P175 

HPPOP176 

HPR0P177 



“001894 
0 0 1 39*3 
Uui3«6 

645 CP (2) =3940. 

c 

C * * * * INTEPOLATE FOR CP ON ISOBAR GREATER THAN A 

HPR0P17A 
HPROPI79 
HPROP1 AO 

r 


001397 

001398 

001899 

C 

o50 CP(i)=YtI» J-1) + (D-X(I» J-l) >*<Y(I. J)-Y(I»J-1) > /< X ( I » J) *-X ( K J-l > > 

C ... ’ . 

hp pop ini 
HPROP1B2 
pppnpi n3 



00 1 moo’ 

001 MU 1 

001408 

C*** * INTEPOLATE FOR C USING SATURATED CONDITIONS 
C 

r=cpm + {A-pm )*(cpt 2 )-cpti) )/(psl-p<i) ) 

HPROP1A4 
HPROPinS 
HP POP IP - 6 

* 


001403 
U 0 1 4 04 
OU 14 06 

GO TO 500 

c 

c**+* MINIMUM TABULATED PRESSURE IS GREATER THAN ArSET ERROR FLAG 

HPROP 187 

hpropibb 

HPROP 1 no 



0 0 14 09 
0 0 3 4 U7 
001408 

C 

200 JKLG=2 

GO TO 500 

HPROP . 1 no 
HPROP 1.01 
HPROP in? 



001409 

001410 

001411 

C 

c****. MAXIMUM TABULATED PRESSURE IS LESS THAN A* SET ERROR FLAG 
C 

HPROP 1 03 
HPPOPt Q 4 
HPPOP1Q5 



001412 
0014 13 
00 1 4 3. 4 

250 J‘FLG=3 

GO TO 500 

r ' • 

"HPROP 106 
HPPOP107 
HPROP1 98 



001415 “ 

001416 

001417 

C* + ** MINIMUM TABULATED INDEPENDENT PROP. IS GREATER THAN B * SET ERROR 

C**** FLAG 
c 

‘HPR0P1P9 
HPROPROO r 

HPROPpm • 



001416 

001419 

001420 

300 JFLG=4 

GO TO 500 

C ‘ - 

1 HPROPPO? • 
HPROP? 03 
HPR0PP04 



001421 

001422 

001423 

C**** MAXIMUM TABULATED INDEPENDENT PROP « IS LESS THAN B » SET ERROR FLAG 
C 

360 JFL6=5 

"HPROP? 05 
HPROP? 06 ? 
HPR0P207 

• 


00142.4 

001426 

500 RETURN 
END 

HP POP? 08 
HPPOPRO 



001426 

NTABT. 10 




001427 

TAPE l.*B’ . KEN KIRK »S TAPE 




' 001428 

TAPE 2 f » K » . OUTPUT TAPE FOR KIRK. 




001429 

READ 5 




0 U 1 4 3 0 ~ 

PRINT 6 




001431 

' END 
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AXIAL BLADE DESIGN PROGRAM 



AXIAL BLADE DESIGN PROGRAM 


W. S. f 7 

Eluid Dynamic Analysis 


1. INTRODUCTION 


a. A computer program has been developed to assist in defining the blade 
profiles for axial machines. Given basic blade data such as inlet and discharge 
angles, leading and trailing edge radii, aspect ratio, and thickness to chord 
ratio; a profile can be developed using this program which minimizes local fluid 
acceleration on the blade surface. 

b. Included is a listing of the program with a brief description of its 
application. A complete description of the analysis associated with this program 
appears in the NERVA Turbopump Design Report, N8300R: 71-076 . 

c. The program is complete and was used to develop the NERVA turbine 
blade profiles. 

d. This program is applicable as long as the turbine remains axial 

flow. 


e. 


■f 


No related activities. 

This program vac developed by K. G 


2. CONCLUSIONS 

a e Gross Conclusions 

(1) This program was used successfully to develop the blade profiles 
for the NERVA Turbine. The program also provides the data necessary for defining 
the blade profiles in a plane normal to a stacking line and the data used in 
velocity distribution calculations. 

(2) The program is complete in its present form. 


3. RECOMMENDATIONS 

a. Achieving a satisfactory blade with this program requires an iterative 
process. A set of spline points are selected, the surface is spline fit and checked, 
spline points are adjusted as needed and the process is repeated until a satisfactory 
blade profile is obtained. With some programming effort this iterative process could 
be done within the program, resulting in considerable savings in time and effort. 


1 



b. The program can be used to supply digital data alone, or digital 
data and punched output which serves as input to a section property program, 
velocity distribution program, and blade stacking program. In addition, it is 
recommended that the program be used with the plot option if a plotter is 
available. 


2 






/ 



*b 

3 

OOuOOl 

000002 

000003 

/ SUBROUTINE CDIN1 ( LREC r TITLE * XC . YC ! 

/ . DIMENSION LRECtfe)»X(2)»Y(2>rTITLE(20).XCtlOOO»2)»YCtlOOOf2) 
10 FORMAT (4E20.9) 

* 


’ “ X. 

f. 

b 

000004 

000005 

000000 

20 FORMAT ( 20A4 ) 
30 FORMAT (15) 
LREC ( J ) =N 




b 

0UU007 

oooooa 

000009 

READ (5r20) TITLE 
DO 100 J=l#2 
READ ( 5 f 3 0 ) N 





GOUOIO 
000011 
0 0 U 0 1 2 

READ (5 p 10) (XC(Ir J) »YC(I»J) »I=lfN) 
100 CONTINUE 
RETURN 




j 

0UU013 

END 

4 

' 

i 

'V-v 

r 




/ 

1 

f; 



1 K I R K 1 4 2 7825 » 1 r 1 0 0 ' 


0 ELT CDOUT»l»7205l9f 31498 


000001 

000002 

000003 

'"0 0 0004 
000005 
000006 __ 
UUU007 
000008 
000009 __ 
"000010“ 
000011 

_00 0012 

0 0 U 0 13 
000014 / 

000015 

" 000016 ” 
000017 
0 0 0 0 1 8 __ 
'"000019 
000020 

__ 0 0 0 021 

000022 

000023 


7 SUBROUT I NE C DOUT ( LREC * TITLE * XC ' YC ) 

1 DIMENSION LREC (6)*XX(2)*YY(2) » TITLE ( 20 ) 

_10 FORMAT (4E20.9) 

2 0 ' FORMAT ( 2 0 A4 5 
30 FORMAT (15) 

♦ WRITE ( 2 » 20 ) JT.ITLE - 

"pO 50 U=lr2 
N=LKEC(J) 

WRITE ( 2 » 30 ) N - 

ICONT-O 
DO 50 1 = 1 »N 

I CONT= ICO NT+I 

X=XC (IVjT 

Y=YC(Ir J) 

XX ( ICONT ) =X — 

YY ( I COr IT ) = Y 
IF (ICONT-2) 35 f 40 f 40 

3_5„ IF ( I -N ) 50 > 4 0 r 4 0 

40 WRITE (2fl0) (XX (K) » YY (K) >K=1 > ICONT) 
IC0NT=0 

50 CONTINUE 

RETURN 
. EMU 





lKJRKr427625f If 100 
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13 ELT CPUOT*! *720519* 31516 


■A 


J 


000001 

000002 

000003 

“ 000004 “ 

000005 
0 000 06_ 
*000007 
000008 
0 (J 0009_ 
* 0 0 0010 
OUOOll 
000012 
’ 0o(j0 13 ~ 


OU 0042 
“00 u 043” 
000044 
000 04 5 _ 
“000046 
000047 
000048 
000049“ 
000050 
000 061 
001)062 
00 0063 
000054 
"O0u055 
000056 


SUBROUTINE CPtlOT < ARGX iAR(SY f * IMARffT > 

C JHE ARRAY' A T5* THE 'DATA 'STORAGE 'GONTA WN'lG v 5d ipeOT^UKtfgS "CAGR'WITH A 
_C MAXIMUM OP 30 ’ X^Y ' PAIRS * NP DEFINES NUMBER OF DATA PAIRS PER CURVE,... 
" ■ *' COMMON /splfit/ 

1 : G(100) f SB (ICO) * EM ( 50 ) * SLOPE (50) * CURV ( 50 ) » X ( 50 ) * Y ( 50 ) 

COMMON '/DATA/ A(2*50*50)* NP(51) 

DIMENSION ARGX(10no/6) r ARGY (1000*6) * INARG ( 6 ) 

DIMENSION '2(1000) * YINTU000) 

DIMENSION XTITL (10) r TITLES (10) 


DIMENSION 'AYLEN(S) *'YMIN(5> t'YMAX { 5 s )' ) NYSTRT (5) *NYSCAL(5> #NYSIZE(5> 

’ ,u, lfNYFRAC ( 5) * YT I TL ( 1 0 * 5) 

C THESE cells TO be USED HY SPL I NE. CURVE .FIT 


C **•* 

C THE PLOT ROUTINE READS INPUT CAROS FOR PLOT SETUP AND CONTROL 

1 FORMAT (12*11) _ _ 

2 * FORMAT (12* 3F9* 0 * 313* 12* 6A6*A4 ) 

C READ CARD 00 

3 READ (5*1) ID* NYAXIS 

I F ( I D ..NE .0 ) GO T 0 999 
IF (NYAXIS. GT. 5) GO TO 999 
C READ CARD 01 FOR X-AXIS CONTROL 


READ (5 * 2 ) I D*' AXLEN * XMI N * XMAX * NXSTRT * NXSC AL * NXSIZE * NXFR AC 

1 *(XTITL(J)* J"1 * 7) 

IF (ID.NE.l) GO TO 999 ________ 


^ IF“”('nXSI7E.EQ.O) NXSIZE = 2 

C READ CARDS 02 FOR Y-AXIS CONTROL 
DO 10 I=1*NYAXI5 


"READ ( 5 *‘2 )' I DT'AYLFN (T) * Y M IN ( I ) * YMAX ( I ) * NYSTRT ( 1 1 * NYSC AL ( l'T 

l * NYSI ZE ( I ) * NYFRAC ( I ) * ( YTITL ( J* I ) * U=l*7) 

IF (ID.NE.2) GO TO 999 _____ 


IF ( f j Y S I Z E ( I ) • EO. 0) MYSIZE(I) = ?_ 

10 CONTINUE 

C COMPUTE PRELIMINARY CONTROL FOR SETUP OF X AND Y AXIS 


c selt Op the x-axis and the basic y-axis 

IF (NXSTRT . EG . 0 ) NXSTRT=50 

C X-AXIS UP 1 INCH ON PLOT 


IF' (NYSTRT (1) ♦ EQ • 0 ) NYSTRT ( 1 ) = 500 
C Y-AXIS 5T ARTS 3 INCHES FROM MARGIN ON DEFAULT 
C COMPUTE PRELIMINARY CONTROL FOR SETUP O F X ANT Y AXI S 

XL a Old =f (x m a x xmin> / axlen 

YLABLO = (YMAX(l) - YMIN(D) / AYLEN(l) 

NXLINE = NXSTRT - 25 _ 

""NYSTRT (1) 


NYLIfjE 

MAXX=IFTX ( 100. *AXLEN) +NYSTRT ( 1 ) 

MAXY = IFIX(100.*AYLEN(1 ) ) +MXSTRT 

CALL PLTSIJ ( 0 * XM I N* YM I N (1) * NYSTRT ( 1 ) * NXSTRT * XLABLD * YLABLD* 100 * 100 


1 f NXFR AC * NYFRAC ( 1 ) * NXLINE * NYLTNE * MAXX * MAXY rNXSCAL * NYSC AL ( 1 ) ) 
NXBEGN = NYSTRT ( 1 ) + (100 * IFIX ( AXLFN) ) / 2 - 32 0 


CALL PLTBC ( X T I TL * 40 * NXBFGN * NXLI NF-35 *NXS IZE * 0 ) 

C HORIZONTAL AXIS NOW LABELED 

NYiiECN = NXSTRT + (100 * I F I X ( AYLFN ( 1 ) ) ) X 2 - 3 20 


NXIJEGN = NYLINE-60 

CALL PLTBC ( YT I TL ( 1 * 1 ) * 40 # NXBEGN , NYBEGN * NYSIZE ( 1 ) * 1 ) 

C BASIC Y AXIS NOW COMPLETED __ 

' NCODE = 1 
ZMAX = AYLENU) 


»•: 

£ 
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000057_ 

"*000058 

Q00C59 

jOUOObO 

0*00061 
000062 
00U0o3 
”000064*” 
000065 
_ U 0 0 0 66 __ 
00 U 067 
000068 
000069 
"'000070" 
0 0 00 71 
0 -J U 0 72 
0 0 U 0 7 3 ~ 
000074 
_ 0 00076 
0 00076 
000077 
000076 
" 000079 
000080 
uoooal 

UU00 02 
000063 
_ 0C0Q34 
”0 0 0 085* 
000066 
__0 000 67 
000 0 63” 


JF t N Y AX I S . E t Q /1_)„00_TO__21 > 

C SET UP SECONDARY Y AXIS 
; DO 20 1 = 2 > NYAXIS 

. MAXY=I FIX ( 100 • *AYLEN(I_5 )+NXST_RT 

~ 7— IF' ( AYLEN ( I) YGT • ZMAX ) ZMAX = .AYLEN(I) . . 

/ IF (NYSTRTCI) .EG.O) NYSTPT(I) = NYSTRT(r-l) - 100 

/ YLABLO = (YMAXU) YMIN .( n>_./ „A YLE.N ( IJ_ 

~ MYLlNE = NYSTRTd > 

CALL PLTSU (3 * XMIN * YMIN < I ) > NYSTRTd) # NXSTRT t XLABLD * YLABLO * 100 * 100 

1, NXFRAC » NYFRAC d) >0* NYLINE *MAXX * WAXY r NX5C AL._f N YSC AL_( 1)_\ 

- NXltEGN = NYLIME - 60 

MYiiEGN = MXSTRT + (100 * IFIX ( AYLFN { I) ) ) / 2 - 320 

CALL PLTRC ( YT I TL d r I ) v 40 * NXBE.GN , tlYB E G N fM YS I Z E d _) . t lj : 

2FNC0DE = I 

21 CONTINUE 

MAXY = IFTXdOO. * 2MAX) + NXSTRT 

~C'~SET UP FOR TEST OF LAST POSITION OF THE PEN 


3 0 R c A L> (5 ' 31 ' E y^7 r 2 ,p^ e>NAXIS?LFI y, L PRIJ^H^ 

1" r X S T A R T 7 ~Y S T A R T » (TITLES (K) r K=i»7> 

51 FORMAT ( 212 * 41 1, 21 3 f 1 1 *• T21# 2F10.0* 616* A4 ) 

IF (IO.NE.3) GO TO 100 

I F ( NFILE .GT* 50 ) GO TO 93 
IF (NAXIS.bT.NYAXIS) GO TO 93 

if (largpl.gt. 6) _GOjr(LQn — 

iF(NSYMUL.EO.O) NSYMBL=64 

GO TO PLOT THE DATA GIVEN THROUGH THE ARGUMENT TO CPLOT 

N = r JP ( NFILE) _ 

I F t r ! A X 1 5 • E 0 . f iCOD E ) GO TO 40 


0 OU 039 

I = MAX IS 

000090 

MCODE = NAX: 

. 000091 

YLABLD = (Yf 

000092 

CALL PLTSU 

000093 

1 f NXFRAC * UYFf 

00 OU 94 

4 0 IF (LARGPL.i 

000095 

IF (LFIT.EG 

000096 

DO 41 J=1 t N 

0UU097 

X ( J ) = A ( i » . 

000090 

Y(J) = A(2r< 

000099 

41 CONTINUE 

000100 

CALL SALINE 

000101 

XMINO = .06 

000102 

DELTAX = (X 

””000103 

IF (DELTAX. 1 

OUUl 04 

MAX = IFI X ( 

mm 1 os 

M = MAX - 1 

0 UU 196 

7(1) = X(l) 

000107 

7 (MAX) = X( 

QUO 10M 

. DO 4 2 L=2 r M 

* 000 109 

42 7 (L) = 7. ( L- 

tutu 1 1 4 

rAl.L *;i>L I f tT 

ItIMI 1 1 1 

M . (/'of* 

i M t 1 1 1 1 J 

i*; j </m>n 

(Mil! ! \ A 

11 (kJ .0 r .0 

0 0 0 1 14 

XCOU = 7 (U.A 

000 116 

ycou = Yirn 

. UOU 1 16 

LOC = 1 


DELTAX 


/ f n ) +*2 


(YCOO - YTfIT ( 1 ).) **2 - 

+ (YCOO - Y I! IT (MAX ) ) **?- 


X K IRK * 427825 • 1 *100 


:.y 
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_ooqii7_ 

000 il 8 

0U0119 
J»(JUl'20_ 
000121 
000122 
OOU 12.3_ 
000124 
000125 
00 0 1 26_ 
"000127 


000138 ’ 
'000139 
000140 
000 14l__ 
“000142 
000143 
000 1 44_ 
“000145 
000140 
000147 
~0 00.14 8"“ 
000149 
000150 
”000151 
000152 
000153 
”000154“ 
0 00155 
000156 
OOu 157“ 
000158 
_000159_ 
00ul60 
000161 
_J)00162_ 
000163 
000164 
000 165 _ 
“GUO lob" 
000167 
_00U166 
QUO 169 
000170 
_000171_ 
0 001 / 2 '“ 
000173 
000174 
“000175“ 
000176 


INC = 4 


GO TO 44 
43 XCOD = Z < 1 ) 

/ YCOD = YIMT(l) 


/ LOG z MAX 
/ INC z ~4 

/ 44 CALL PLTPT (LINE AX'fNC »_INC »N5YMPL» I NTV» Z (LO C ) >YI N T(LOC) ) 

"1 go To 30 ~ 

C PLOT THE DATA FROM RAW POINTS 

80 Rl = (XCOD^An^NFILF))**? _+ (YCOD " A C2 * 1 > NFILE? ) **2 


R2 z (XCOD" - “A(T»n/nf"ILE) ’>"**2 + (YCOD - A ( 2 *N * NFILE ) ) **2 


OOU 128 ■ 
000129 

IF (Rl.GT.R2) GO TO 81 
XCOD = A ( 1 *N» NFILE) 

U00130 

000131 

000132 

YCOD = A ( 2 * N *NFILE) 
LOC z 1 
INC z 8 

000133 

GO TO 82 

000134 f 

81 XCOD = A (1 * 1 * NFILE) 

000135 

YCOD = A ( 2 * 1 * NFILE) 

000136 

LOC z N 

000137 

INC z -a 


jB2 C ALL PLTPT ( LINE # N * INC * INC *_NSYMBL* _I_NTV_t_ 
1 A ( U LOC * NF I LE > * A (2VL0C * NFILE) > 

GO TO 30 

C PLOT FROM THE ARGUMENT JTO .. CPLOT 


ENTRY 'CPLOT 1 (ARGX* ARGY * INARG) 
90 K = LARGPL 

NARG = INARG ( K > 

"IF ' (NARG, 6 T . 100 O') GO" t6~ 98 


Rl z (XCOD - ARGX ( 1 *K ) ) **2 + (YCOD - ARGY ( 1 * K ) ) **2 ’ 

R2 z (XCOD - ARGX(NARGfK) ) ** 2 + (YCOD - ARGY ( NARGf K ? ) **2 

“I F ( RT • G T * R 2 ) GO TO 91 ~ “ ' 

XCOD z ARGX (NARG* K) 

YCOD z ARGY(NARGfK) 

”loc ■ =ri 

.INC z 4 

GO TO 92 ■ 


“9!T7.C0'D“= ARGX Cl t K~) 

‘ YCOD = ARGY(IfK) 

LOC _ = JMARG _____ _ 

INC z~ -4 

92 WRITE <6> 1000) LINE * NARG * INC * INC r NSYMBL * IN TV t ( ARGX ( IK* K) # ARGY t IK*K 
1) f I K z 1 » N A R G ) 


~uT00 FORMAT PI "ENTRY PLTPT* /6I5/ (2E20.6)) 
CALL PLTPT (LINE* NARG* INC* INC* NSYMBL* INTV 

1 , ARGX (LOC * K ) > AR GY (LOC * K ? ) 

GOTO "30 


98 WRITE (6*99) NFILE * NAX IS * LARGPL * NARG 

99 FORMAT ( * _ C H EC K 0 N E _ Of THE_F OLLO W I N G INPUT ON 03 CARD# NFILE=**I2* 

£-r '! j A xisz»“' iTrOI argpL=* Vii * * narg= v ~*i4) 

go TO 30 


C P LOT THE TITLES FROM THE_04 AND 05 CARD S 

100 riXHEGN z NYSTRT C i ) + ( 100 *""lFI X ( AXLEN) ) / 2 - 320 

101 IF ( ( I D * ME • 4 ) * AND • ( I D • NE » 5 > ) 00 TO 200 

IF (XSTART.NE.O.) NXBEGN = IFIX(XSTA PT) 

IF” (YSTART.NE.OV) MAXY z TFIX(YSTART) 

IF (ID.E0.4) MAXY z MAXY - 31 

IF (ID.E0.5) MAXY j= MAXY - 24 

"I SIZE = 7 - ID 


l 


CALL PLTfJC ( TITLES * 40 * NXBE6N * MAXY » ISIZE*0) 
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Q ELI MAIN* 1 * 720519* 31485 


000001 
OUQ002 
JD 0 0 0 0 3_ 
000U04 
000005 
U 0 000 6_ 
"001)007 
C- 00 C 08 
000009 


1 0 0 0 2 5 
001)026 
000027 
’"‘G'j’u 028” 


000053 
CU U 054 
'000055“ 
000066 


i 

/ 


integer surf 

DIMENS ION / ( 500 ) *LREC(6) *NUM(2) * DATA (28) * XB ( 2 * 25) * YB ( 2 * 25 ) * 

II FLAG (14) * XC ( 1 000 * 2) *YC(1000 »2) * SLOjj M^'Tl^CURVE ( 1000 f 2 ) r 
2XSH ( 10 0 0 * 2 ) * YSH ( 1000 *2 ) *XST< 1000*2) *YST(i000*2) *SLENTH (2) * 

3ARGX ( 6000 ) * ARGY ( 6000 ) 

C 0 MM ON / SPLF X T/_G ( 1 0 0_)_»_SR ( 1 0 0 ) >EM( 50) * SLOPE (50) * C UR V(50J »X (50) *_ 


1 Y ( 50 ) 

COMMON IM* ID* IY * TITLE (20) * DATA * XP * YD *NDL*' !RPI 

_ EQUIVALENCE ( 0 A T A ( 1 ) * G A M ) *. ( D A T A (?) * A P)j ( D AT AJ 3_>jJI X PJLf.lP AT A (.41/ — 

lKHO IP ) * (DATA (SVVwTKL) * (DATA (6) * CV.FGA ) * (DATA ( 7) *ORF) * (DATA (8) * 

2DFTI ) * ( DATA (9) *BETO )* (DATA ( 10 )# CHORD) * (DATA ( 1 1 >* STGR ) * 

3 { DATA ( 12 ) * REDFA ) * (DATA (13)* DENTO ) * ( DATA ( 1 'O * Rll ) * ATM 1 TVlTQTL' 

"4 (DATA ( 16) * BET 1 1 ) * (DATA ( 17) * 0ETO1 )7< DATM 18) rOUMYl) * (DATA (19) *RI2) * 4 
5 (DATA (20) *R02) * (DATA ( 21 ) *9ETI2 ) * (DATA (22) ? BET02) * (DATA (23) *DUMY2> 

EQUIVALENCE (DATA (24) *P0) * (DATA ( 2.5 ) ,*_W )ATA( 2.6) » 

IRAU) * (DATA ( 27) f CP) * (DATA (28) *V/2) 

EQUIVALENCE (ARGX( 1) *XC ( 1 * 1 ) *XST (1*1)> 

EQUIVALENCE ( ARGX(2001 ) * XSH (1*1) ) 


" EGUIVALENCE (ARGY(l) *YC(1*1) *YST(1*1) 5 

EQUIVALENCE (ARGY(200l) *YSM(lr 1> ) 

EQUIVALEfiCE_ (ARGY(4001 ) *RCURVE< 1 * 1JJ 

10 FORMAT (//*' SURFACE LE NGTf i - * * F 1 0 • 3 ) 

CALL ERRSET ( 259 *30 0,-1*0*0*0) 

__ISTK = 0 _ _ 

50 CALL INPUT ( NUM * DELX * I FLAG ) 

IF (IFLAG(IO)) 60*65*60 

60 CALL CDIN1 (LREC* TITLE *XC * Y_C) 

GO TO "669 

65 IF (IFLAG(II)) 70*75*70 

70 CALL COINl (LREC*TITLE*XC*YC) 

GO TO 651 

75. DUMY 1=0.0 

DUMY 2=0 . 0 ’ 

PH0IP=0 * 0 
JFLAG=0 

■ kflag=o ; : 

Nl=i\IUM ( 1) 

N2=NUM(2) 

BETA I =HET 1 1/57 . 29577_9 , _ 

CALL XYI (BETAIrRIl* i.#X8(i*l) »Y8d*l> rDYOX) 

BFTAI=DETI2/57. 295779 

C ALL X Y I ( BE TA I * R 1 2 * -1^*_XR_(_2 *_lj_* YD_( g * 1 ) * D YPX ) 

’ f S E T A 0 =U E TO 1/5 7.2 9 57 79 ~ 

• CALL XYO (BETA0*R01* CHORD * STGR * 1 • * XB ( 1 * Ml ) * YB ( 1 » Nl ) *DYDX) 

BETA0=BET02/57. 295779 _ __ : 

C A LL XYO ( BE T AO * R 02* CHORD * ST GR * “ 1 • * XB ( 2. * N 2 ) *Y8<2*N2> * DYDX) 

DO 650 S(JRF = 1*2 

LFLAG=0 

NM1=MUM(SURF)-1 

M=NUm(SURF) 

IF (SURF-1) 80*80*90 1 


80 L = 1 
RI=RI 1 
PO=ROl 

betai=betii 

RETA0=BET01 



"lKlRK»427825'Snr» 100 


_GO_ TO 95 — 

1=2 ' 

RI=RI2 

RO=R02 ■■ 

"nETAI=[iET I 2 
RETA0=BETO2 

BETA I -BETA 1/57*29577 9 

" t 3 E T AO -BET AO / 57.29 5779 
SLOP I =T AN (BETA I) 

_SLOPO=TAN< JETAO) • 

IF (L-l) llQtlOb'UO 
SIGN-1 • 

GO TO 150 

"SIGN=-1. 

DO lbO I = 1*N 

_x(i)~xn<r>ur<F»i) 2 

Y(i)=YH(5URF‘> I) ~ 

SLEUTH ( SURF ) =RI * (1 . 570795-SIGN+BETAI) 

IF (SURF-1.)., 170 t 170 ? 41 0 _ 

~ D T HE T = 0,‘001*SI GN/R I 
THETA=3.14l59*SIGN/2. 

_ 5 = 0 .o 

t=o.6 

XC ( 1 f SURF ) =S 

YC ( 1 r SURF ) -T 

R CURVE ( 1 * SURF ) =RI 
SLO(lfSURF)=l .0E50+SIGN 

_T = 1 

1 = 1 + 1 

TU£TA=THETA-DTHET 

CAUL X Y I (THETA * Rl »SI GM>S >T>O Y PX) 

"IF (JFLAG) 2 1*0% 21 0*240 
IF (S“XB(2fl)) 240 f 240 * 22 0 

__ Jr LAG- 1 2 i 

S=XLH? t i)"~ 

T=5QRT (RI**2-ADS (S“RI ) +*2) 

_IF( S-X ( 1 ) ) 250 > 300 * 300 - 

'XCTl'fSUfiF)=S' 

YC ( 1 » SURF ) "T 

_PCURVF:( I »SUKF)=RI 

SLO ( I * SURF ) =DYDX 
J=I 

_G 0 TO ?00 

I 1 = 1 

?(1)=X(1) 

IF ( JFLAG ) 360 > 360 y 350 

> 1=1+1 

Z(I)=Z(I-l)+OELX 

IF ( Z ( I ) “X13 ( 1 > N1 )_)_370 *J375_*375 

j IF ( Z ( I ) -X B ( 2 t N2) ) 350 r 380 *380 

> 7(1) =XB ( 1 r N1 ) 

GO TO 490 ; 

) KFLAG=1 
Z(I)=XB(2*N2) 

_THETA=-fiET02/57. 295779 J 

nTHET=O.OOi*SIGN/RO 
5 1=1+1 

theta=theta-dthet . 

CALL XYO(THETA>ROr CHORD fSTGRf SIGN. S?T*9YDX 
IF (S“XBU*rU)) 390 f 375 f 375 
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000117 
oooii a 
000U9 
_C00120_ 
COO 121 
COO 122 

_0 00 1.23 

0 j U 1 2 4 
0O0125 

COO 1 2d 

'6 66 127 
000120 

__000 129 

C~ J 0130 
000131 

0001 32 

”000133 
000134 , 
__Q U 0 1 3 b __ 
000136* 
000137 
_000138_' 
000139 " 
000140 
_000.14 1__ 
0UU142 
000143 

0 0014 4 

00014b 
000146 
000147 
~'0 0U148 
000149 
OUOlSO_ 
000 151 
000152 
000153__ 
000154 
COUlbb 
000156_ 
000167 
oouiba 

0 U 0 1 b 9_ 

COU160 
000161 
000 162_ 
C UO 163 ~ 
000164 

0 001 65_ 

000166 

000167 

Ct'Ol 6S_ 

000169 
1 C 0 0 1 7 0 
000 1 71_ 
0 0 U 1 7 2 
000173 
000174_ 
GOulVb 
000176 


390 ?A IJ =5 » 

GO TO 385 

360 1=1+1 

/ CALL XYI (THFTj\>RTjSIGM>S>T»DY9X ) 1 

”7 IF (S-XQ iJHV) 361 >365 >365 

361 Z(I)=S 

/ tmej a=thet a-dthet 

GO TO 360 
365 7(I)=XB(2>1) 

GO TO .350 : 

410 I R M 1 = 0 
1 = 0 

_4 1 2__I RM 1 = I RM t_+ 1 

S=XC ( IRM1 r 1 ) 

T=YC(IRM1>1) 

DYDX=SLO < IKM1 > 1J J 

' I F 7 ( j FL A G )"4l'5~> 4 1 5 > 4 3 0 

415 IF <S-XO(l>m 420 > 420 r 430 

420 T=-T : 

dyux=-oyox 
425 XCU«MlrSU«F>=S 

YC(IRN11>SURF)=T ___ 

j? curve ( irnuTsurf ) =Ri 

SLO ( IRM1 > SURF ) =DYDX 

J=IKMl • . 

GO T 0 41 2 * 

430 IF t S-Xtl ( 2 > 1 ) ) 440 > 450 >460 

44 0_J=-SrjRT ( R I **2-AGS ( S-R 1 ) **2 ) 

I F ( T ) 4 42 >~44 1 > 442 

441 DYDX=1.0E50*SIGN 

GO T 0 425 „ - 

442 OYDX=(RI-S)/T 
GO TO 425 

450 1 = 1 + 1 _ . _ 

2(I)=S" 

GO TO 412 

46 0 IF (S-XB(2j^2jJ_4 50>450>49 0 

490 C ACL' S P LN 2 (N > SURF >'SLOP iVSLOPO ) ' ’ 

CALL SPLUT ( N > SURF > Z > U> I « L > LREC > XC > YC * SUO > RCURVE > SLENTH) 

SLEUTH ( SURF )_=SLENTH ( SURF ) +RO* ( U 570795+SIGH*g £TAQ ) 

— V. R I T E ~ ( 6 > 10 )"” S L E N T H ( S 0 R F ') ■ 

THET A=13ET AO . . 

DTHET = 0 . OOl + SIGN/RO - - ■ 

M=d " 

500 J=J + 1 

TML‘TA=TMETA-0TI!ET : ' — 

I F ( s 1 GN* THE T A +3 *14159/2.) 550>600>600 
550 THETA=-SIGN*3. 14159/2. 

M=1 _ 

600~( CALL XYO ( THETA >RO> CHORD » STGR > SIGN >5 » T> DYDX ) 

IF (LFLAG) 60 1 > 60 1 > 624 

bOljF (SURF-1) 602 >602 >60 5 

6 0 2 I F ( K F LAG) 603 '>60 3 >624 

603 IF ( S-XB ( 2 >N2 ) ) 624,6?4>604 

604_ THETA=-RET02/57. 2^5779 

“ "LFLAG=1 
GO TO. 600 

605 IF (KFLAG) 624 >624 >606 __ 

~606”lF(S-Xna>Nl) ) 624 > 624 i 607 
607 THETA=-»ET01/57. 295779 




IK I RK f 427825 * 1 * IQ 0 
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_00 0 1 77__ 
000178 
000179 
0 0 U 1 B 0__ 
' Out) 181 
000182 
0 00 183 _ 
' 00 U 184 
00018b 
COU 1 86 
0 U 0 1 8 7 
000188 
00 U 189 
"000190' 
0 U 0191 
000192 
0 0 U 1 9 3 
000194 , 
0 0 0 195_ 
000196 
000197 
_0 0 019 6 
000199* 
000200 
000201 
"0 90202 '“ 
C 0 0203 
JD 00204 
00020b* 
00 0206 
JO 0 0207 
00208 " 
0’)u209 
0 0 0210 
"C0U21I 


LF_LAG=1 i , 

GO TO 60 0 
624 XC ( J*SURF)=S 

/ Y C(J>SURF)=T ' 

~T R CURVE ( J * SURF ) =R0 

/ slo ( j * surf ) -d ydx 

/ IF (M) 62b* 500 >625 

fe25 LREC(L)=J 

LRCC(L+4)=J * 

DO 64 0 L0C = 1*J 

"tOC ArUOC + 1000*- (SURF+3) 

640 ARGX(L0CA)=XC(L0C*SURF) 

_650_CON'T I NUE : 

IF ( I FLAG ( 9) ) 654*658*654 
654 CALL CDOUT < LPEC * TITLE * XC * YC ) 

658 IF ( I FLAG < H > 5 651*659*651 ; 

*651" IF (ISTK) 653*652*653 

652 JSTK=1 

CALL STAK(lfRAO*LREC*XHT » YHT *YCENT » T ITLE* YM* ID»IY* 

1 XTR AM * YTP AN * XC * YC * XSH * Y$H * X~ST * YST ) 

GO TO 50 

653 CALL 5TAK < 2 * PAD »LREC * XHT * YHT > YCFNT * TITLE* TM» ID* IY» 
lyTRAN * YTRANVxC * YC * X5H* Y5H* XST* YST ) 

659 IF ( I FLAG ( 5) ) 660*670*660 

660_ IF ( I FLAG ( 6 ) ) 661*665*661. 

"661 ‘ P I T C M = 2 • * 3 . i 4 1 5 9 * R A D / N 8 L 

CALL OFSET ( LREC * PI TCH » XC * YC * ARGX * AR6Y ) 

_665 CALL CPLOT ( ARGX ? ARGY *LREC_) . 

670 I r (1FLAGC2) ) "730*760*730 
730 CALL VELINiN'JM) 

_760__I F ( I FLAG ( 7 ) ) 761*765*761 . 

7ol CALL SEC I N (LPEC ( 1 )"* N tV'NsVlM * ID * I Y * TITLE * X*D *DELX * XC * YC > 
765 IF (IFLAG(I)) 50*800*50 

JiOfJ STOP 

' end '" 



/ 








/ 


.3 

3 

a 

D 

3 
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/ 


OOOCOl 

000002 

000003 

“000004" 

000005 

000006 

“000007" 

oouuoa 

000009 

“ooooio 
000011 
00 00 12 
OUUU 13 
000014 f 
000015 
~0000 lb" 
QUO 017 
_00u018 
0 U 0 0 1 9 
000020 


/ 


c 


SUBROUTINE PLTSU (MCVEON > XORIG* YORIG# MXPLOT rNYPLOT t XLABLD* 

1 YLABLD.NXLAB»NYLA8f NXFRAC * NYFRAC > NXLINE * NYLINE p 

2 MAXX f MAXY » NXSCAL * NY SCAD 

' COMMON '/PLOTCM/ IPLOTF# NPLOTS 

DIMENSION IBIJF(IOOO) 


IF ( IPLOTF • EO * 1) GO TO 

CALL PLOTS ( IBUF#1000p9) 

C - 


_C10_ 
C ' ‘ 
10 


CONVERT off-set origin to 'inches. 

IPLOTF =1 . 

f PLOTS = 0 
XCONST = 0. 

YOU 1 = 0. 

” SUMY = 0.0 
GO TO 15 

J«LEN = MAXLEN 

CALL PLOT ( XLE N # 0 * 1 998 ) 

CONTINUE 


• ' ¥ 



UUUliilA 

0 0 U 0 2 2 


"XCONST=FLOAT (MAXLEN) 

v 





000023 


yco:jst=yori 





f * 

000024 

15 

scalfy = 1. 





1 

000025 


IF (NYSCAL *NE • 0 ) SCALEY = 10.**NYSCAU 





b 

000026 
0 n ( i o ? 7 


yoiugn = yorig*scaley 
yori=float (NYPLOT) /100 . 






000028 


~DYL = FLOAT (NYLAB )/i00. 





r 

00 0029 

(J Ijo [ } *>0 


PELTAY = YLAP.LD/OYL*SCALEY 

IF (nXLINE.EG.O) GO TO 105 ’ ..... _ . 





| 

000031 


‘nPLOTS = NPLOTS+ 1 

, 




f) 

000032 
0 0 ! ' 0 1 3 ^ 


SCALEX = 1 . ' - 

IF (NXSCAL .NE. 0) SCALEX = 10.**NXSCAL ...... 





1 

000 034 


~X 0 R I G N = X OR I G*SCALEX . 





h 

000035 


XORI = FLOAT ( MXPLOT )/l 00. 
nXL = FLOAT (NXLAR )/100. 





L 

“ 000037 

00U038 


“dTELTAX"“= " X L A B L D /D XL * S C A L E X 
MAXLEN=(MAXX-NXPLOT) /I 00 + 3 





l 

u u u u j y 
" 000040 



C 

“set-up”~new “logi c a"l* ORIGIN. * 





;s') 

000041 
rifi n nu> 

C 

XMEW=XOU I +XCOM5T 






1 

U v U U *r C. 

000043 


~YNlW=YORI-YCONST 





P 

■ 000044 

on no 45 


SUNY=SUMY+YNEW 

CALL PLOT (XNFWrYNFWf-3) 





1 

U U U U T J 

000046 


T'en=maxx-nxpl6T 





p 

000047 

000048 

C— — 

c 

CONVERT LENGTH OF X-AXIS TO INCHES. 






i 

000049 
* O0UO5O 
000051 

c 

ITICK = LEN/NXLA5 4 1 
XLFN = OAT ( I TICK-1 ) *DXL 



- 


t 

000052 

000053 


~XL = XLEN ■» * DXL 

XV = FLOAT (ITICK) *XLABLD *SC ALEX+XORIGN ; 





S . 

000054 


XLIM1T=XV - - 





I 

OOOV.) T 

000055 


"IF ( N XL.I NE * EQ • 0 T" GO“”T 0 1 05 


. “ 



P 

000056 


HEIGHT=0.14 
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_QQ00$7 

000050 

000059 

000060 

*000061 

000062 

_0-0 006 5 

00 U 064 
000005 
U00066_ 
~ 000067 
000069 
_000069_ 
00u070 
00U071 
_0Q0072__ 
000075 
000074 f 

__ 0 0 0 0 7 5 

000076 
000077 
_OOOQ70 - 
0 0 U 0 7 9 ” 
000080 

_ 900 0 Hi 

0 0 0 082 
0.00003 
_G0 0084 _ 
000085 
000 086 
J)00087__ 
000008 
000059 
OQ0090_ 
000091 
000092 
0U0093 
”000094 
0 0 0 0 9 5 
_00U096_ 
'0UU097 
000098 
000099_ 
”000100 
000101 
_ 000102 
"000103” 
000104 
_U00105_ 
000106 
000107 

___onoi08_ 

" 000109 
000110 
__000111 
000112” 
000113 
0U0114_ 
“000115 
QUO 1 16 


DRAW X-AXIS 


S ALL_P_LOT_ ( 0.. # 0 . #3) 

CALL PLOT (XLEN # 0 • # 2 ) 


DRAW T I CK MA kP KS_ A N D __ LAD EL S . 


WRITE ( 6 # 6 0 0 0 )_ NPLOTS #_ XORJ_#_„YpRI._#._.XLEL:»._n X L# XORIG N# YORIGM# 
I" I T I C K 

DO 100 1 = 1 » I TICK. ; 

XL = XL - DXL 
CALL PLOT (XL# 0 • #3) 

CALL PLOT ( XL r -0 • 14 # 2 ) : 

XV '= XV-XLABLD*SC ALEX 

CALL NUMBER ( XL #-*• 35 # HEIGHT #XV#0. #NXFRAC> 

CONTINUE 

DRAW Y-AXIS. 


YLEN=MAXY 

YLEN=YLEN-YORI*100. 

_I T I CK = IFIX ( YLEN) /NYLA8 + JL 

YLEN = FLOAT ( ITICK-1 ) *DYL 
YL = YLEN+DYL 

YV = FLOAT (ITTCK) „ _* Y L A B LO * S CALEYjLYORI G N_ 

"ylimit=yv 

IF(NYLINE.EQ.O) RETURN 

_HEIGHT=0.14 __ _ _ 

OFFSET =FLOAt {NXPLOT/iOO ) -XORI 
XO=OFFSET 

_C ALL PLOT (XOrO. #3 > _ 

CALL PLOT ( XO# YLEN '2 )~ 

DO 110 I=1#ITICK 

_YL = YL -_DYL 

XO=OFFSFT 

CALL PLOT ( XO# YL # 3 ) 

_XO=OFF5ET-O.14 : 

CALL PLOT (X0rYL#2) 

YV = YV-YLABLD+SCALEY 

_XO=OFF SET-0 .25 

CALL NUMBER ( XO r YL » HEIGHT #YV#90. #NYFRAC) 
CONTINUE 

RETURN 


ENTRY PLTBC (BC I # f JUMBCI r NXBEGN#NYPEGN# ISIZE# I VERT) 


CONVERT TO INCHES. 


XPAGE _=_PLOAT ( NXREGN ) /_1 00 . -XOR I 

YPAGff. = FLOAT (NYREGnT/IOO.-YORI 
MCHAR = NUMBC I 

_ANGLE =_0 v. 

I F C I VERT .EG. 1) ANGLE = 90. 

HEIGHT = FLOAT ( I SIZE) +0.07 

CALL SYMBOL ( XP AGE # YP AGE * HE I GHT # BC I # ANG LE » N CHAR ? 

'return 


C 


000 117 
000118 
000119 
000120 
000121 
000122 
JJ00123 
000124 ” 
000125 
_U 0 0 .1 26 

0 0 U 1 2 7 
000128 

000 129 

" 000130 
000131 
000132 
"0 0013 3 
000134 , 

_00G 1 35 

OOU 1 36 
000.137 
0U0i38__ 
U JO 1 39 
000140 

_ 000141 

" "UU0142 
000143 

000 1 44 _ 

U 00145“ 
000146 

000147 

00 0148 
000149 
000150 

— -oooisi" - 

0001 52 

U0U153 

000154' 

000155 

00015b_ 

000157 

000158 

000159__ 

000160 

000161 

000 162_ 

000163 
000164 
000 io5_ 
000166 
OOu 167 

OOU lo8_ 

000169 
* 000170 

000171 

00017 Z 
U00173 
00U174_ 
0001 7 5 
00017b 


" IK X RK * 427825 r 1 r 1 0 0 

FNTR Y PLTPT (JPLOT>NtlMPT>INC Xr INCY r ICQOE rtNCSYM » X 7 , YJL 
: DIMENSION XARRAY t 102 ) t YARRAY ( 10?) tX ( 1 > * Y(l) 


DATE 19' MAY' 72 


“7 INTEQ = 'I CODE 

/ LINTYP = INCSYM 

I F ( I PLOT .EG. 1 ) LiJiniL 

I COUNT' = riUMPT 
IX = INCX/4 

I Y = INCY/4 

II ' = "1 

JJ = 1 

GO TO 190. 

180 JJ=JJ+1 
11=11+1 

IC0UNT=IC0UNT-1 

IK { I COUNT .'LT . D RETURN 
190 XARRAY ( 1 ) =X ( I 1 ) *SCALEX 

YARRAY ( 1 ) rY ( JJ >_*SC ALEY 

T r ( { X A 1 1 R A Y { 1 ) . L T * X 0 R I GN ) .OR 


LINTYP = - LINTYP 


Txarray ( 1 ) .GT. XLIMIT) 


1 (YARRAY ( 1 ) .LT.YORIGN) 


(YARRAY(I).GT.YLIMIT)) GO 


• OR. 

TO 180 


_2 0 0 _ I = 1 

210 *1 = 1 + 1' 

215 II=II+IX 

JJ=JJ+I Y 

I C 0 UN T = I COUNT -1 

IF ( I COUNT ♦ LE • 0 } GO TO 220 

‘ XARRAY < I )=X( II >*SC ALEX 

YARRAY ( I )=Y(Jj)*SCALEY 
IF ( (XARRAY(I) .LT.XORlGN) *OR. 0 
1 ( YARRAY ( I ) . LT. YOR T GN ) . OR ._J YARRj 

" — npts=i 

IF ( I * GE * 100 ) GO TO 230 

GO TO 210 

— 22 IT IF ( IVLE . 2 V ‘RETURN" 

230. XARRAY <m>TS + l)=XORIGN 

XARRAY (NPTS+2) =_ DELTAX 

yarray (npts+i). = ' YORIGN 

YARRAY (NPTS+2) = DELTAY 
CALL LINE (XARRAY r YARRA Y fNPTS >_l_ 

XARRAY ( 1 ) =* XARRAY (lOoF 

YARRAY (1) = YARRAY (100) 

• IF ( ICOU_NT_. GT . .0 ) GO_J10__2pO 

RETURN" ' 


OR. (XARRAY(I).GT. XLIMIT) 
( YARRA Y ( I ) . GT. Y LIMIT) ) G O 


• OR » 

TO 215 


L I NTYP> 3NTEQ) 


ENTRY PLTN'U ( XLOC * N U MO E CrN X LOC * N YLO C/ IST Z_E »JVERT) „ 

"”C — — 

XORR = FLOAT (NXLOCJ/100. - XORI 

YORR = FLOAT ( NYLOC ) /100 .^_YORI 

HE IGH T '”'= FLOAT ( 1 SIZE) *.14 . 

ANGLE = 0. 

IF (I VERT .GT. 0) ANGLE = 90. 

CALL NUMBER (XORR ,'YORR * HE I GHT f XLOC » ANGLE f N'JMOEC ) 

RETURN 

C 

: ENTRY PUTIN 



XLEN = MAXLEN _ _ _ 

CALL “PLOT (XLEN Y-SUMY »999) 

iplotf=o 
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iKlRK# 427025V I #100 


r> 

t 

J 


0 ELT SECIN# 1#720519# 31504 



000001 

/ 

y 

000002 

/ 

;i 

000003 

/ 5 

; i 

00C094 

/ 10 

b 

000005 

15 

I 

000006 

1 

I 

000007 

20 


000008 

6 

3 

C 0 0 0 9 9 

24 

I 

OUGOIO ■ 

25 

p 

000011 

30 


000012 


1 

000013 


$> 

000014 , 



000015 


1 

000016 



0 0 U 0 1 7 


■j 

0 GUO 18 - 


$ 

"00UU19 " 


o 

000020 



000021 


% 

000022 



000023 


( 

0*00024 


i 

“00U025 

50 


000026 


i 

090027 

60 

5 

•J 

0 0 U 0 2 8 

65 

p 

00U029 



000030 

70 


"" 000 031 

80 

> 

000032 

90 

J 

000033 

100 

•1 

000034 

1 10 


000035 • 

120 

1 

000036 

130 


*000037 

190 

Id 

000038 



000039 


i 

000040 


m 

0 0 U 0 4 1 


j 

000042 

200 

"1 

000043 


& ) 

000044 

250 

1 

000045 

300 

i 

"000046 



SUBROUTINE SEC IN ( N * Nl #N2 # IM # 10 * I Y t TITLE # X8 # OELX »XC # YC ) 

DIMENSION TITLE<20) # XB { 2 r 25) '# XC C 1 n*00 # 2 ) #YC(1000#2> 

FORMAT ( * 1 DATE » , A ?_# * - ’ # A2 # * - ♦ # A? # 36X r ’ RL A n E__PR OFT LJT _PROGJlAM^_/)_ 

format' ^ orixrtsFcTioi-r PROPERTIES PROGRAM input" DATA*/) 

FORMAT (* X COORDINATES OF UPPER AND LOWER SURFACES ARE NOT THE SA 

ME * /X OX #_* XU= * , E15_. 8 Q # * YU= ♦ # F 1 5 . 3 > « YL= ’ r.E.lJS.* 6). 

FORMAT fl 5V 5 X73F10.T) 

FORMAT < 20A4 ) 

FORMAT < 25X # * YU * # 1 8X rJLYUliiJiKf JLXiL*Z > - 

F OHM AT (1QX#3F20*7) 

FORMAT (• MORE THAN 49 POINTS’) 

K-l _ 

WRITE (6, 5) lM#ID# IY 
WRITE ( 6# 10 ) 

V!RITF(6r6) TITLE 

WRITE (2 #6)” TITLE' 

DX=5.*DELX 

J=0 : 

DO 200 1 = 1 #N 
XU=XC(I#i) 

YU=YC ( I » 1 ) _ 

"XL~XC ( I t 2 ) 

YL=YC<I#2) 

IF (AUS(_XU-XL) "0.0000 001? 6 0 #50 #50 

"WRITE { 6 , 15) XU f“XL r YU f YL , 

GO TO 300 

I F ( I -1 ) 65 » 65 # 7 0 __ — 


WRITE’(6#?.4) 

GO TO 190 
IF(I-N) 80# 190 # 190 


I F < XOLD-XU ( 1 # 1 ) )1OO,1OO#90‘ 

I F ( XOLD-XB ( 2 # 1 ) )100#100#110 
IF ( XU** ( XOLD+DELX ) )200»190»190 
lF'( X'J-XIH I f Nl ) ) 120 # 120 ,100 
lF(XU-Xi3(2#N2) ) 130# 130,100 

I F ( X U- ( X OL D + D X_) ) 2 0 0 , J. 9 0_# 190 

X OLD- XU 

WRITE(2#20)K#YU,YL#XU 

WRITE (6,25) YU# YL_#.XU_. 

_ J- J+ 1 

IF( J-49)200,200,250 

CONTINUE 

“CO TO 300 
WRITE(6#30) 

RETURN 

END 


T / 

. - / 

/ 

/ 



/ 
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s 

0 

ELT SPLINE 

r i » 720519 f 31507 

/ 




f 

J 

D 

000001 

000002 

000003 

/ SUBROUTINE SPLINE (NfSRW) 

/ integer srw 
c/ 

• 



% 

1 

3 

0 0 0 U 0 4 
O0U005 
OUOOOo 

c 

c 

c 

SPLINE CALCULATES FIRST AND SECOND DERIVATIVES AT SPLINE POINTS 
END CONDITION-SECOND DERIVATIVES ARE THE SAME AT END POINT AND 
ADJACENT POINT 

3KIRK917 

3KIPK918 




0 

0 000 07' 
0 0 00 00 
o no ooo 

c 

COMMON /SPLFIT/ 

1 G( 100) » SB (100) » PM (50) * SLOPE (50) #CNPV(50) r X(50) ♦ Y(50) . 




■ 

*■ 

$; 

1 

'] 

i) 

0 U 0 0 1 o” 
ououti 
0 0 o 012 


SB (1)=- 1.0 
G(1)=0. 

no=n-i _ 




| 


b 

UUuO 13 
0 00014 , 

no oo - s 


IF (NO -2 ) 20 r 7~p 7 
7 DOl 0 1 -2 » NO 

A~(X ( I ) -X ( 1-1 ) ) /ft. 

4 


t 

p- 


j 

i ■) 

UOOOlo 

000017 

nouoia ■ 


C=(X(I+1)-X(I) )/6. 

W = 2. *( A+C ) -A*SB ( I-D 

SB(I)=C/W 



i 



i 

\ 

is 

U 0 0 019 
000020 
0 0 0 021 


F=<Y(I+1)-Y(I) )/(X(I+l)-X(I) )-(Y(I)-Y(I-l) )/(X(I)-X(I-l) ) 

10 G(I)=(F-A*G(I-1) )/W 

20 FM (N) =G ( M-l ) / < 1 • +SBCN-D) __ _____ 

3k 



i 


1 

J 

000022 

000023 

000024 


D 0 3 0 I - 2 f N 
K=N f- 1 — I 

30 FM (K)=G(K)-SB(K) *EM(K+1) 


. ’ 


f: . 


i 

i ' 

000023 

( JOU 026 
000027 


SLOPE ( 1 ) = ( X ( 1 ) -X ( 2 ) )7 6. *<2. *EV(1)+EM(K) )+(Y(2)-Y(l) )/(X(2) 

1) ) . 
n040Tz2*N . 

-XU3KIRK940 



ip 


i 

u o u o 2 a 

000029 

000030 


40 SLOPE ( I > =(X ( I )-X ( 1-1 ) ) /6. *(2. *EM ( I ) +EU ( 1-1 ) ) + ( Y ( I ) -Y ( I-l ) ) / ( X ( 3KTRK943 

ll)-X(I-l)) 

DO 45 I=!#N 



f- 


b 

sf 

"000031 

000032 

000033 


45 "CUKVV'I ) = ( (l.+SLOPEt I ) **2)**1.5)/ABS(EM(T) ) 

IF (SRW ) 50 » 1 00 f 50 

50 V/R1TF ( 6 f 1000) N *• ( X ( I ) r Y ( I ) . SLOPE ( I) r EM ( 1 ) r CURV ( I ) * 1 = 1 » N ) 

* 



{; 

n 

T) 

000034 

000035 

000036 


100 RETURN 

1000 FORMAT (*l*»15HNO. OF POINTS = r I 3/10X t 1HX r 19X t 1HY t 19X r 5HSLOPE t 
A2HEM » 1 5X » 4HCURV/ ( 5E20* 8) ) 

15X* 3KIRKP4. 



| 


.? 

i 

■ ) 
1 

) 

p 

000037 


END" 
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ELT SPLINT, 1.720519. 31509 ' ' 

■ ) , ' 



Y 

000001 

”7 SUBROUTINE SPL I NT (N»Z»YINT r MAX) 



t- 

000002 

C/ ' , 



fr 

000003 

C/ SPLINT CALCULATES INTERPOLATED POINTS AND DERIVATIVES 



1.. 

000004 

C FOR A SPLINE CURVE 



I&. 

000005 

DIMENSION Z(IOOO) fYlNT(lOOO) 


* 

¥' 

000006 

COMMON /SPLFIT/ 




"" 00U007 

1 6(100) fSD( 100) >EM (50) , SLOPE (SO) rCURV( 50) > X ( 50 ) r Y ( 50 ) 




000008 

1000 FORMAT <* SPLfJT USED FOR EXTRAPOLATION *# E15 . 7/ > 



W :: 

000009 

D0140 I~1 » MAX 



■f' 

0 0 U 0 1 0 

K=2 



l 

000011 

JF ( 2 ( I ) -X ( 1 ) ) 70 » 60 ' 90 



K" 

0 0 0 012 

60 YINT(I) - Yd) 




000013 

I 

if 

X 

X 

X 

it 

if 

y. 

i 




000014 , 

GO ro 130 


! 

t 
tv ' 

000015 

70 IF (Z(I)-(i.l*X<l)-0.1*X(2>>) 75 » 1 20 ' 1 20 



...— ..... &••• 

0000 16 

75 WRITE ( 6 r 1 U 0 0 ) Z(I) 


■ 

'Sr ■ 
Vr 

000017 

60 TO 120 


/ 

W - ' 

000018 ' 

80 K=N 


. 


0 0 0 u 1 9 

IF I2(I)-(1.1*X(N)-0.1*X(N-1))) 120rl20f85 



y 

0 00020 

85 WRITE (6*1000) Z ( I > ■ 




000021 

GO TO 120 ' r * 



- f: 

"000022 

90 1F(Z(I)-X(K) >120f 100*110 

, - 



000023 

100 YINT(I) = Y (K) 




00 u 024 

SK=X(K)-X(K-1) 




000025 

60 TO 130 




000026 

HO K=K+1 



iv. .. 

000027 

IF ( K-*N) 90*90*80 




0 00 028 

120 CONTINUE 




0 0 U 0 2 9 

SK-X (K ) -X ( K-l ) 




000030 

YINT( I)=EM(K-1>*(X(KWCI) )**3/6. /SK+EM ( <) * ( Z ( I ) -X (K-l) >**3/6, 3 k IRK 41 



• V- 

000031” 

1/SK.+ ( Y ( K ) /SK-EM (K ) *SK/6« ) * ( Z ( I ) -X (K-l ) ) + ( Y ( K-l J/SK-EM ( K-l ) *SK/6 * 3K IRK 42 




000032 

2 >*(X(K)-Z(I>) 



t 

000033 

130 DYDX =-EM(K-l )* (X(K)-Z( I )) **2/2.0 /SK+EM ( K ) * ( X ( K-l ) -Z ( I > ) ** 2/2.3S9R2 4 




000 034 

1 /SK+ ( Y ( K ) - Y ( K-l ) ) >SK- ( EM ( K ) -EM ( K-l ) > *SK/6 . 



w- 

00003b 

D2YDX=(X(K)-Z(I) )*EM(K-1 )/SK+(Z(I )-X(K-l ) ) *EM(K)/SK 



t 

000036 

RCURV = ((i*+DYDX**2)**l*5)/ABS( 02YDX ) 



l: v . 

000037 

140 CONT I NUE 



$"'■ ' 
fc. 

000038 

500 RETURN . ' 



t? ■ 
'f 

000039 

FNU •• ■ 
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o'ouboi 

000002 

_C 00003 

00 U 0 0 4 
000005 
000006 _ 
“000007 
000008 

_ 0 0 U 0 0 9 

0 0 0 010 
000011 

0 0 0 0 1 2 

~ 0 00013 
0000 14 t 

_C0U 015 

0 000 16 
0 0 U 0 1 7 
__0 0 0016 
. 0UU019 

0 0 U 0 2 0 

_ 0 0 0 0 2 1 

000022 

000023 

_Q0 0024 

OOu 025 
00002b 

000027 

000028 

0U0029 

__00 0 0 30 

000031 
000032 
_U00033_ 
b u 0 u 3 4 
000035 

00u036__ 

0U0037 

000038 

000039__ 

000040 

000041 

00 0042__ 

000043 

000044 

0 00045 

000046 
000047 
_ 0 0 0 04 8__ 
'000049 
000050 
_ 0 0 0 0 5 1 
" 0 OOO 52 ' 
00U053 
_ 000064 _ 
" 1HJU05S 
00005b 


T SUBROUTINE SPLNT C N * SURF * Z * J * MAX * L f LREC * XC t YC » SLO * RCUR VE * SLENT H ) 

C / 

_C/_ SPLINT CALCULATES I NT E R P 0 L A T E D_PO I NTS. 

c for' a spLine 'curve “ 

INTEGER SURF 


_3xIRK99_0.„_ 


DIMENSION Z ( 1000 > * LREC ( 6)/XCJXO.OQ * 2^^ 

"iRCURVEdobOf?) SLEUTH ( 2 >■ , 

COMMON /SPLFIT/ G ( 100 ) * SB (100) * EM ( 50 ) * SLOPE (50) *CURV(50) *X (50) * 
1Y ( 50 ) 


' COHHbiTTM; i D V I Y * f l TLE < 20) * D ATA ( 20) *XB * YB * f IBI. * NBB I 
WRITE (6*1030) IM*lD*T.Y ^ 

1030 FORMAT ( ’ 10ATE J * A 2 : »_ T _"JL t M. *1 ~ ' r 9 3 6X * ' q? »ADE PROFILE PROGRAM / }_ 
UR 1 t £ ( 6 Vi 04 0 f TITLE 
1040 FORMAT { IX * 20A4/ ) 

WRITE (6*1050) SURF = ; — 

1050 FORMAT (' I NT ERF 1 OLA TED X-Y COORDINATES FOR BLADE SURFACE , *I1> 

IF (MAX) 500*500*5 
5 ni=SRW. 


D0140I=1*MAX 
J=J + 1 • 

=2 


I F ( Z ( I ) -X ( 1 ) ) 70 * 60 * 90 
60 YINT =Y(1> 

_SK=X ( K ) -X ( K-J_) 

GO TO 130 

70 IF (Z(I>-(1*1*X(1>-0*1*X(2)>) 75*120*120 
75 WRITE (6*10 00) Z (I) - 


3KIRK J8 
3KIRK 20 


_3KTRK 22 

3KIPK 23 


SRW=16 
GO TO 120 

80 K=N , 

T F “Tz m^fTTl * X ( NT^oTl * X ( N - 1 ) ) * 120* 120* 85 

85 WRITE (6*1000) Z(I> 

SRW=16 


3KIRK 26 


GO TO 120 

90 IF(Z(I )~X(K) ) 120* 100*110 

100 YINT _ =Y(K) 

sk=xTk)-xTk-i) 

GO TO 130 
110 K=K + 1 


5KIRK 31 
3KTRK 32 
3KIRK 33 


■ 3KIRK 35 
3KIRK 36 


I F ( K-N ) 90 * 90 * 80 
120 CONTINUE 

SK=X(K)-X(Kjt.1J„. 


3KIRK 39 
3KTRK 40„ 
3KIPK 41 


- Y I NT ''=e'mTk- 1) * ( X (K)-Z(I) >**3/6~. /SK+EM< K ) * ( Z ( I ) -X < K-l ) ) **3/6. 
l/SK+(Y(K)/SK-EM(K)*SK/6. )*(Z(I)-X(K-1)^CY(K-1)/SK-EM(K-1)*SK/6.3KIRK 42 

2 ? * ( X ( K ) -Z ( I ) ) : — 

130 XC( J *lT=Z (!)■”“ 

YC ( J * L ) "*Y I NT 

pYUX * =-EM (K-1_L* (X(K) -Z (.1 ) > * *2 / 2 . 0_ __ _/ S K + FMJJOJLQ^^ ?Z2 a3.KI P K_4 4,. 

1 ”"/SK +TV ( K" > -Y ( K- f)T/SK- ( 'EM ( K ) -EM (K-l ) ) *SK/6* 

SLO( J*L)=DYDX 

02YUX= ( X ( K ) -Z ( I ) ) *EM (K-l ) /SK + ( Z ( I ) “X_(.KrAl L^MJJO /SK, 

RCUR V - t ( 1 • +DYDX**?. > »5) /ABS(D2YDX) 

pCimVE( J*L)=RCURV 
TF(I-n 155*155* 160 


155 WRITE (6*1010) U * M A X 
GO TO 170 


t=. 
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b 


f 


;n 


’€) 


P 


000001 
000002 
000003 _ 
‘000004 
000005 
000006_ 
*000007 
OOUUQ8 
000009 
OOuOlO" 
000011 
000012 
‘000013* 
000014 # 
0UU015_ 
"000016 
0 0 U 0 1 7 
o oooi b ■ 
00 00 1 9 
000020 
_ 0 0 C 0 2 1 
U 00 022 
0 0 0 0 2 3 
_C-QU024_ 
QUO 02b 
C 00026 
0 0 U 0 2 7_ 
0 GO 026 ‘ 
00U029 
JJ 0 0 0 3 0_ 
000031 
000 032 
__OUU033_ 
000034 
00003b 
_0UU036_ 
000037 
000033 

0 0 0039_ 

000040 

000041 

0 0004 2_ 

000043 

000044 


SUBROUTINE SPLN2 (Nr SURF f YIP* YNP) 
INTEGER SURF 


C/ 


C "SPLN22 CALCULATES FIRST AND SECOND DERIVATIVES AT SPLINE POINTS 
C END CONDITION - DERIVATIVES SPECIFIED AT END POINTS 

C OMMON /SPL.F IT/ G < 1 0 0 ) r SR ( 1 0 0 ) * EM < 50.).' SLO.PEJ 50 ) j CUP .VJJ50J..?JC. ( SOJjl 
Ty(50) 

COMMON IMr ID* IYrTTTLE(20) r DATA (28) r XB ( 2 r 25 ) r YB ( 2 r 25 ) rNBLr M3BI 

WRITE ( 6 r 1010) IM r ID * I Y _ .... — 

10 10 FORMAT ( T 1DATE « r A 2 r r A2* *-•# A2 r 36X #* BLADE PROFILE PROGRAM*/) 
WRITE ( 6 r 10 05) TITLE 


3KTRK952 
**3K IRK9S3 
3KIRK954 


JL005 FORMAT UX#20A4/> 

WRITE (6» 1020) SURF 

1020 FORMAT (* INPUT SPLINE POINTS FOR SURFACE Ml) 
SR ( 1. ) ~0 • 5. . 


F=(Y(2)-Y(1) )/(X(2)~X(i) )-YlP 
G ( 1 ) =F+3* /(X(2>-X<1> ) 

NO=N-l 

"IF (NO-2) 20 r 7 r 7 


3KIRK960 


J5K I.PK96.2_ 


7 DO 10 1 =2 r NO 

A=(X(I >-X( 1-1) )/6. 

C =(X(I+l)-X(I))/6* 

W-2 • * ( A+C ) -A*SB ( I— 1 ) 

Sfi(I)=C/W 


~f = ( y ( i + 1 ) ~y ( fn/TxTi +i ) -x <T> ) - < y ( I ) -y ( 1-1 > ) / ( x ( i ) -x ( 1-1 ) > 

10 G(I)=(F-A*G(I-1) j/w 

20 F=YNP- ( Y ( N ) -Y ( N-l ) ) /J X { N )_-X ( N- 1 ) ) 

v7='{ Xtfjj-X lu-i) )/6. * ( 2 • -SB (N-l) ) 

EM ( N ) = ( F- ( X ( N ) -X ( M-l ) >*G(N-l)/6. ) /W 

_P030I=2fM ' 

k=N+i-i 


3K IRK96B_ 

3KIRK969 
3KIRK970 
3KIRK971 


_3KTRK974__ 

3KTPK975 


30 EN.(K)=G(K)“SB(K)*EM<K + 1) 

SLOPE ( l ) = (X (l) -X(2) )/6. * (2 . 

lV) ” 

0040 1=2# M 

40 SLOPE(I )=(X(I)-X(I -l))/6» 


*EM ( 1>+£M(P) )+(Y<2) -Y ( 1 ) ) / ( X ( 2 >-X < 1 3K IR„K077_ 


3KIRK979 


* ( 2 . *E M( I >+EV (I-l> ) + (Y(T)-Y( I ~l) )/ 


1 (X(I)-X(I-l) ) 

DO 45 1=1 »N 

4 5 CURV (!) = ((!. + SLOPE_( I )** 2>**1« 5V/ABS ( EM (Tjj 1 : 

WRITE' (gViOOOT N t (X ( I ) » Y(I ) r SLOPE ( I ) *EM< I ) rCURV ( I ) r 1=1 #N) ’ *' * 

RETURN • 

1000 FORMAT ( 16H NO. O.F_J^JjjIS_=^I 3/1 0 X » I H X » 1 9 X » 1 H Y » 1 9X # 5HSE0PE # 1 5X r 3KIR K94_ 


A2HEM r 15X r 4HCURV/ ( 5E20 • 8 ) ) 
END 


3KIRK9A6 
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C00001 
000002 
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OU0005 
_00u006__ 
‘ 0 U U 0 0 7 
QU0008 
00 0 (J U 9 

" 0000 iu 
000011 
(100012 
”000013 ” 
000014 , 
_ 0 0 0 0 1 5 __ 
000016 
000017 
QUO 016 
"'000019" 
OOUO20 
_ 0 0 0 0 2 1 _ 
“ 000022 " 
000C23 
0'0U024_ 
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000026 
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000029 
0U003G 
000031” 
000032 
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■~'00u034 
000035 
000036 
”000037' 
000036 
__ 0 U U 0 3 9_ 
■00 004 0 
0 0 u 0 4 1 
_OOOU42_ 
0Uu043' 
000044 

0 0 0 0 4 5_ 

(J 0 u 0 46 
00U047 

0 0004 6_ 

000049 

000050 

000 05 1_ 

UOOO 52 
000053 
000054 
0 0 0 055' 
000056 


7 SUBROUTINE STAK (L# RAO r LREC t XHT # YHT # YCENT » TITLE # IM» ID' # IYf 
/ 1XTRAN.YTRAN.XC. YC.XSH.YSH.XST.YST) 

/ DIMENSION LREC (6) »TITLE(20) >XX(2) . YY iZ)jXC 11000* ^2^XC±l_O0Ou_2L*_.. 

T ixSM ( 1000 * 2 ) * YSH ( 10 00 » 2 > . XST ( 1000 » 2 ) # YST(fr6o#2> 

5 FORMAT ( 4 E 2 0 • 9 > 

10 .FORMAT (6F10.0) 

20 FORMAT (2F20.8) 

1000 FORMAT ( 1 1DATE *.A2# f ~*#A2# *~ , #A2»36X* BLADE PROFILE PROGRAM*/) 

1005 FORMAT ( 1 X . 20 A4 ) _ , — 

~1 0 1 0 FOR M A t" * ( 4 2 X . f W RAPPED BLADE COORDINATES * HUE . UPPER SURFACE*# 

1//9X .*X*.19X.*Y */) 

1015 FORMAT ( 42X > * WRAPPED _BLADE COORDINATES . HUP » LOWER SURFACE *,# 

1//9X . * X *‘ . 1 9X # * Y *"/) ’ “ 

1020 FORMAT (42X. 'WRAPPED RLADE COORDINATES # TIP# UPPER SURFACE*# 

1//9X f*X*fl9Xf*Y*/) _■ . ~ 

“1025“ FORMAT (42X» • WRAPPED BLADE COORDINATES # TIP # LOWER SURFACE*# 

1//9X. *X» . 19X. *YV) 

_1 030 FORMAT (20A4) _ : 

I 035" FORMAT (15) 

1045 FORMAT •(* X-Y COORDINATES OF HUB CENTROID# X= * # F20 . 0 # * Y= * , F20 .8/) 

GO TO ( 30 # 60 ) #L __ 

30 RADM=RAb ' 

RFAD (5.10) XHT.YHT. XCENT . YCENT . XTRAN # YTRAN 

' WRITE (2. 1030)_TITLE 

DO bO” J=l“#2"" 

ICONT=0 

WRITE (6.1000) _IM»ID_#J_Y 

T. 1 R I T E ’ * ( 6 V 1 0 0 5 )~ TITLE - 

IF ( 0-1 ) 35.35.40 

35 WRITE (6.1010 ) 

’ WRITE (6.104 5) X’TR A’nTYYR ATJ 

. XTKAN=XTRAN-XCENT 

GO TO 45 

4”0”wR I T E ” ( 6 . 1015 ) 

45 N=LKEC(J) 

WRITE (2.103 5) (J _ 

LREC( J+2)=N’'" 

DO 50 1=1. N 

__ IC0NT=IC0NT + 1 _ 1 

'x=XC ( I . J) ' 

Y=YC(I.J) * 

Y = Y-YCENT 1 

y=!<adh+sinTy/radh)+ytran * ' • 

• X=x+XTRAN 

XX ( 1CONT ) =X : 

YY ( ICONT) =Y 

XSIU I . J) =x ... 

YSH (I . J) =Y ' — 

I F" < I C ONT-2) 46.47.47 

46 IF (I-N) 50.47.47 

47 WRITE (2.5? (XX(IN ) > YY ( IN) » IN=1 # IC ONT) 

I CONT-O 

50 V/RITE (6.20) X.Y 

__GO TO 20 0 : 

60 RADT=RAb 

WRITE (2.1030.) TITLE 




’'V,, 


. — 
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no l no J-l * 2 * . - 





000056 

000059 

000060 

ICONT=0 

; WRITE (6*1000) IM*ID*IY 
/ wRXT^ (6*1005) TITLE 





000061 
000062 
n n nTin^ 

r IF (J-l) 65 1 65 *70 
/ 65 WRITE (6*1020) ' 

/ 60 TO 75 

_ • . , 




0 0 U 0 tj 4 
00006b 

ft ft ft ft 

70 WRITE (6*1025) 

75 M=LREC(J) 

wfUTF (2*1035) N 





00 0067 
000068 

no 100 I=1»N 
ICONT=lCOfJT+l 
v-xr ( T f J ) 





"000070 

000071 

00007? 

Y=YC(I * J) 

Y=Y-YCEHT+VHT 
Y=RADT*SIM ( Y/RADT) +YTRAN 





W \u U i *L 

000 0 7 3 
000074 , 
000075 

X=X+XHT+XTRAN 
XX ( ICONT) =X 
YY ( irONT >=Y 




t 

~~ 000076 
000077 
n n n 07 m 

X5T(i* J)=X 
YST ( I » J ) =Y 

IF (IC0NT-2) 80*85*85 



/ 


u u u f u 

■ 0UUG79 

000080 
000 0 1 1 

80 IF (I-N) 100*85*85 

85 WRITE (2*5) ( XX ( IN > * YY ( I M) * IN=1 * ICONT) 
T C GNT— 0 

■ . * 




000082 

000083 

000064 

100 WRITE (6*20) X*Y 
200 RETURN 

END 
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0 0 0 0 G 3 _ 
-00000 a" 
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0 0 0 0 1 5_ 
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000019” 
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000021 __ 
" 00 0022“ 
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U 00 031 
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J00UO33_ 
U 00 034 
000035 
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"000037" 
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DUO 040 
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000046 
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_(! 00 048 
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000056 


”7 SUBROUTINE VELIN (N) 

DIMENSION DATA(28)»TlTLE(20)’fN(2) 

/ COMMON /SPLFIT/ G J_1 0 0_)_# SR U 0 0_) f E M ( 50 ) f S L Oj jE^50Djl^^ ) » 

^ Tyyy(50)“ 

COMMON IM • ID# IY, TITLE# DATA fX (2 #25) #Y(?#25) fNBLfNBBI 

EQUIVALENCE t DAT A ( 1 ) 1 6 AM ) # (DAT AJ 2 

1 P H 0 1 P ) #' ( b A T A ( 5 ) t \7f F L ) V (DA T A ( 6 ) ' #0 M E G A ) # (DA r A ( 7 ) * ORF) » (DATM8) * 

2FJETAI ) f (DATA (9) # BET AO) #■ (DATA (10) » CHORD) # (DATA ( 11 ) fSTGR.) * 

3 ( DAT A ( 12 ) »PEDFA) f (DATA ( 13 ) * DENT 0 )f (DATA ( 14l#.Rl 1 ) rJJJATA ( 15) »ROl ) 

4 ( DATA (16 )~r UETI 1 ) » (DATA (1 7 ) #BET01) f (DATA( 18) fSPLNI ) # (DATA (19) #RI2> t 

5 ( DAT A ( 20 ) * i!02 ) # ( D A T A ( 2 1 ) fRETI2) # (DAT A ( 22 ) » RET02 ) f (DAT A ( 23) rSPLN2) 

EQUIVALENCE ( DATA ( 24 ) * PO ) # ( DATA ( 25 ) # W > t (DATA (26) r 

’* lPAU) r (0ATA(;>7) #CP) # (DATM28) #W2> 4 

5 FORMAT ( 2 0 A 4 ) 

10 FORMAT < F 1 0 , 3 r 2 F 1 0 . 1 r 2 F 1 0 . 6 f 1 0 XrFJ! 0»? »F1 Q*6> 

2 O' FORMAT ( 2F 10 . 3 r 2F i 0 . 6 > 

30 FORMAT ( F 1 0 ♦ 2 » F 1 0 . 6 ) 

40 FORMAT (2I5»10X#4I5) ; 

50“ FORMAT (2FI0 • 6# 2F1 0 • 3# F10 • 1 j 

60 FORMAT -(8F10. 7) - ; . 

X C 0 0 F OR M A T_ ( * 1 0 A T F ’ r A 2 A 2 # * !L-_L A.? » 3 6 : X#2 Bt .QLQJ EL X .UEJP R P G R A M3_/)_ 

“10 ’.'5 FORMAT ( 1 X r 20 A4 / ) “ 

1020 FORMAT <40X, * VELOCITY DISTRIBUTION PROGRAM INPUT DATA f /> 

11 1 0 FORMAT ( 7X # 3HGAM f 14X f 2HAR » 13X > 3NTIP>J 2X» 5MRH0 TP# 12 X# 4H WTFL r 1 1 X » 6H. 

■** ■" 1 » 10X r SHOMEGH f 12X* 3H0RF) 

1040 FORMAT ( IX f F 16.6r F 16*2 f FI 6. 3f 2F16*7# 1 OX * FI 6« 2 # FI 6 . 5/ ) 

1120 FORMAT _ ( 6X # 5f IBETA I f 1 OX f 5HBET AO # 1 IX >6HC0RD F > U X > 5HSTGRF > . 

~ 112 1" FORMAT ( 2F 1 6 . 5 r 2F 1 6 * 7/ ) ' 

1125 FORMAT ( 6X # 6HPEDFAC # 1 OX t 6HDENTOL ) 

1126 FORMAT (2F16.7/) ___ ' _ 

“ i 1 3 0 ”F OR M A T ■ ( 4 1 M MB I MB 0 MM NBBT NBLNRSP) 

101.0 FORMAT ( 21 5f 10X # 415/) . 

1140 FORMAT (40H BLADE SURFACE 1 UPPER. SURFACE) 

"118 0 F 0 RMA T ( 7 X # 2 HR I # 1 1 # 1 2X V 2 HR 0 * 1 1" #T2X » 4RBETI # 1 1 # 1 IX » 4HBET0# T 1 #.11X f 5HS 
1PLN0 r 1 1 ) 

1161 FORMAT (2F16*7f 2F1 6. 5rF16.1/) _ 

”11 90" FO.R MAT “( 7X t 3HMSP # 1 1 # 2XV 5H ARRAY)" 

1191 FORMAT ( IX# 8F16, 7/ ) 

120 0 FORMAT_( 7X f 4HTHSP f 1 1 f_2X f 5H ARRAY ) 1 

”1150 FORMAT ( 39H BLADE ' SURFACE 2 — LOWER SURFACE) ' , ‘’ 

1210 FORMAT ( 7X f 8HMR ARRAY) 

_1220_ FORMAT (7Xf11HRMSP_ ARRAY) , 

1230 FORMAT ( 7X » i 1HBESP ARRAY) ' - 

SPLfJl=N(l> 

SPLM2=N(2) 

- 0ML6 A =2. * 3 • 141 59*0 MEGA"/ 60 . 

RAU=RAD/12. 

AR = 32 • 174 *AR . 

~R H 0 1 P = P 1) * 1 4 4 T /f 1 P / A R 
VjTFL=WTFL/32 . 174/NBL 

V/U=W*S I N ( BETA 1/57* 296) — 

w X = W * c 6 S ( B £ T A I / 5 7 . 2 9 6 ) 

U=R AD +OMEGA ; 

VU=WU+U _ 1 

V=SoRT(VU* * 2 + W X+ *2 ) 

T1 = T1 P-V +*2/ ( 2 • * 32 • 174*778 • 16*CP) 


v4p 



Tk IRK 74270257 1 ii 0 0 

P 1 =Pft*(Tl/TlPJ* * (GAM/ ( GAM-1 »,) , ? ’ 

R H 0=pY*T 44* /Tl/AR 
; AN=WTFL/RHO/WX 

/ PITCH=2.*3.1415 9*RAP/NBL _ 

/ Hi- AN /PIT CM” ~~ 

/ H2=H1 

/ WX2=v;2*G0S?HETA0/57.296) 

~ T T i < = T 1 + W* * 2 / (2 * * 32 * 1 74 * 778*i6*CP) 

PTRzpl * ( TTR/T 1)**(GAM/ ( GAM— 1 • ) ) 

T2=TTR~V/2**2/< 2. *32. 174*778._1 6_*CP) _ 

P2=P TR* ( T2/TTR) ** (GAM/’( GAM-T. ) > 
RH02=P2*144./T2/AR 

AfJ2=wTFL/RH02/WX2 : 

H3=AM2/PITC!1 

H4=H3 

CH0RD=CH0ED/12, : 

ST GRzSTGR /RAD/ 12. 

00 200 I-lf2 

K -N ( I ) _ 

00 200 J=i'rk 
X(I,J)=X(I,J)/12. 

200 Y (l»J)=Y(IfJ) /R AO/12^ 

R 1 1~R I 1/ 12 ♦ 

R I 2-R 12/ 12. 

P0 Irf.'Ol / 1? « __ 

"R02=R02/12. 

HT=PITCH/N!JBI 

mum=cmord/ht 

’MIU = 15 
MDOzM'JM+MHI 

MM= W, H 0 + 1 5 

7jRSP=4 

Xi=-14.*HT 

X2-0 • 0 _ 

X3-CH0R0 

. X4=I4.*HT+CH0RD 

WRITE (2,5) TITLE : 

WRITE ( 2 » 10) (DATA ( I ) » 1=1,7) 

WRITE (2,20) (DAT A ( I ) ,1=8,11) 

WRITE <2,30>_<DATA(I),I=12,13> 

WR I TF ’ ( 2 » 4 0 ) MR T f MUO f MM , NBBI , NBL ? NRSP 
WRITE (2,50) (DATA (I ) ,1=14*18) 

• J = i . 

205 I F ( N ( 1 ) -J-7 ) 210*210,215 
210 MAX=N(1) 

GO TO 220 

2lT MAX=J+7 

220 WRITE (2,60) ( X ( 1 , I ) , I=J, MAX ) 

J=tf AX + 1 * ; 

■- j f- ( n ( 1 ) -MAX ) 225,225,205 
225 J=l v 

230 IF (MCI) -J-7 ) 2 35,23 5,240 

235 MAX-N (1 ) 

GO TO 245 

240 MAX=J+7 __ : 

245~ WRITE (2,60) (Y< 1, I ) , I=J,MAX) 

JSMA.X + 1 

__ IF ( N ( 1 ) —MAX ) 250 # 250 • 230 

'250“v.'R ME (2,50) "(DA T A ( I ) , I=-*9 , 23) 

j=i 
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MULTISTAGE AXIAL FLOW TURBINE PERFORMANCE ANALYSIS PROGRAM 
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MULTISTAGE AXIAL FLOW TURBINE PERFORMANCE ANALYSIS PROGRAM 

a 


1. IN T R ODUCTION 

a. A computer program has been developed for performance analysis of 
multistage axial flow gas turbines. Its primary purpose is for predesign 
analysis of axial flow turbines to establish turbine operating characteristics, 
pressures, temperatures, gas velocities, flow channel geometry, and approximate 
blade root stresses. 

b. Included is Report 7740R-70-032 which describes the program in detail 
and includes a listing of the program, input instructions, and example case. 

c. The program is complete and was used for predesign performance 
analysis of the NERVA turbine. 

d. The program is application as long. as the turbine remains axial 

flow. 

e. 

f. This program was developed by K. G. Kirk. 

2. CONCLUSIONS 

a. Gross Conclusions 

(1) This program evolved over the past several years of NERVA work. 
It proved to be an extremely valuable tool, both in the parametric phase of 
component selection and the final turbine design. 

(2) The blade root stress predictions of the program required prior 
knowledge of the blade geometry, hence it was not extremely useful in predesign 
calculations. 


1 



3* 


RECOMMENDATIONS 


a. Since the program has evolved over a several year period and was 
originally written for a small scale computer with limited storage, there is 
room for improvement in the coding to make a cleaner more efficient program. 

b. The program has been used principally in connection with rocket 
engine turbopump applications; however, there are no known program limitations 
which prevent its use on any other axial flow gas turbine application. 

4. REFERENCES 

The method of analysis used in the turbine loss analysis is based on 
the work of Reference (a). 

(a) Stewart, Warner L.; A Study of Axial-Flow Turbine Efficiency 
Characteristics in Terms of Velocity Diagram Parameters; ASME 
Paper Number 61-WA-37. 


2 



23 July 1968 
774DR-68-0010 





NER'/A THREE-STAGE AXIAL FLOW TURBINE 
PERFORMANCE AND AERODYNAMIC ANALYSIS 
REFERENCE TURBO PUMP 



Approved by: 


-/// 




S. A. Lorenc, Supervisor 
Turccmchinery Section 
Engineering Department 


HKG 



Turbomnchinery Section 
Engineering Department 



Prepared by: 



K. G. Kirk, Engineer 
Turbo machinery Section 
Engineering Department 
NHO 



I. INTRODUCTION 

The three-stage axial flow turbine discussed here is the result of* 
an extensive turbo pump parametric analysis, including turbo pump structural 

and reliability considerations, leading to the following turbine requirements: 
Shaft Horsepower ■= '7,280. 

Turbine Inlet. Temperature = l t 660°R 

Turbine Inlet Pressure = 305 psia 

Turbine Pressure Ratio = 7*01 (Total to Static) 


Rotative Speed = 19,000 rpm 

The basic design. philosophy maintained for this turbine ana those which 
preceded it during the parametric study included the following: 

1, Insure impulse or slightly positive reaction at the blade 
root by selecting some small amount of reaction at the mean line. 

2. Twisted blades are unnecessary because the Ni£ RVA turbine 
blades are relatively short. 

3* Maintain constant rotor tip diameter for all stages to 
maximize tip speed for the first stage which has lower blade stresses, to reduce 
the total turbine rotor overhung moment and to simplify the turbine housing. 

4. Distribute stage loading such that the first stage produces the 
most work and the last stage produces the least. This assures turbine flow control 
by the first stage nozzle, resulting in more reliable off-design performance pre- 
dictions without sacrificing turbine performance. 


5* A single tangential inlet line and dual tangential exhaust 
lines are used, with line sizes being selected as a compromise between line 


weight and pressure losses. 
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II. ' METHOD OF ANALYSIS 

Performance analysis for the turbine centers around the method of 
predicting losses for both the blading and associated inlet and exhaust « 

ducting. The loss analysis selected for the blading is similar to that of 
Reference (l) and includes these several major assumptions. 

1. One- dimensional flow at the mean radius. 

2. Adiabatic flow through static components, i.e., manifolds 

and nozzles. 

3. Blading losses may be satisfactorily predicted on the 

basis of 

a. Reynolds Number 

b. Nozzle Exit Angle 

c. Average Kinetic . energy level of the stage 

d. Rotor Tip Clearance 

Losses in the inlet manifold and exhaust collector are based on a total 
pressure loss coefficient. 

Utilizing the required shaft pov/er and assumed turbine flow rate, (which 
eventually must satisfy the pressure ratio requirement) the specific work 
requirement of the turbine is determined from the relation 


^ sspjso 

W J 


( 1 ) 


and is distributed to each individual stage in a manner consistant with the 
basic design philosophy. 


~ 3 ™ 



KJ 


For the turbine considered here , the stage loading is: 

First Stage 40 r /o * 

Second Stage 33/* 

Third Stage 

Further reduction in last stage loading would result in insufficient axial 


acceleration of the flow. 

Selection of nozzle angles is based on the following criteria: 

1. Performance 

2. Blade Height 

3. Flow Passage 

4. Manufacturing Feasibility 

Use of hot hydrogen drive gas tends to result in short turbine blades, 
especially for the first stage, and a pronounced rotor tip clearance effect 
on turbine performance. Hence, a high nozzle angle (measured from the axial 
direction) is desirable for the first stage to produce maximum blade length, 
however, excessively high nozzle angles degrade performance because of the 
increased wetted area, and increases manufacturing difficulty. These consider- 
ations have led to a first stage nozzle angle of 75 degrees. The remaining 
nozzle angles of 70.5 degrees for the second stage and 66 degrees for the 
third stage were selected to produce a reasonably good flow passage within the 
constant rotor tip diameter constraint . 


First stage blade speed was selected primarily to satisfy critical speed 
considerations by maintaining low disc weight. The trace-off between aisc 
weight and turbine performance has led to a first stage mean blade speed of 
1200 ft/sec. Remaining stage blade speeds' satisfy a constant, tip configuration 
resulting in an average blade speed ox 1105 it/oSCo 


-4- 


The above parameters, namely stage load, nozzle angle, degree of 
reaction and blade speed dictate the gas velocities for the stages and with 

• ' ; 

the gas velocities determined, the blade loss analysis is conducted resulting 
in interstage • pressures and temperatures as well as blade heights and effi-. 

t 

ciencies. The loss coefficient used for the blade loss analysis was based on 
data presented in Reference (l) together with correlations made with the M-l 
scale model fuel pump test data and NASA three-stage turbine test data. 

Inasmuch as the effect of rotor tip clearance on stage loss is a function of 
rotor blade height, it was necessary to provide for blade loss coefficient 

variation from stage to stage. This was done based on tip clearance leakage 
data presented in Reference (2). 

Loss coefficients for the inlet manifold and exhaust collector were 
based on limited data obtained from the technology turbopump. 

In order to facilitate the parametric study that has been made on the 
NSRVA turbine, the above performance analysis procedure has been computerized. 

A detailed report on this turbine performance program is currently being 
written and will be published as "Design Point Performance Analysis of Multi- 
stage Turbines," RN-TM-04ll. A brief preliminary explanation of the program 
and its use together with an example case are included as Appendix B. 


The results of this analysis for the three-stage turbine considered here 
are summarized as follows: 




FIRST 

STAGS 

SECOND 

STAGE 

THIRD 

STAGE 

THREE 

STAGE 

Flow Rate 

Lb/Sec 

4.05 

4.05 

4.05 

4.05 

Pressure Ratio (Total-to-Static ) 

— 

2.519 

2.169 

1.808 

7.01 

Velocity Ratio 

U/Co 

0.14? 

0.164 

0.190 

0.106 

Actual in trial py Drop 

BTU/Lb 

508 

419 

342 

1,269 

Static Efficiency 

% 

- 38.1 

40.3 

45.6 

51.7 
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VEIOGITY DIAGRAMS 




1,200 

1,186 

1,170 

u 

1 ,200' 

1,186 

1,170 

6,454 

5,500 

4,683 

V 

u 

4,154 

3,342 

2,646 

1,724 

1,948 

2,085 

V 

X 

1,724 

1,948 

2,085 

6,662 

5,835 

5,126 

V 

4,498 

3,868 

3,369 

75-0 

70.5 

66.0 

CC 

67.5 

59-8 

51.8 

5,234 

4,314 

3,512 

W 

u 

5,354 

4,528 

3,817 

5,5H 

4,734 

4,084 

W 

5,625 

4,929 

4,349 

71.8 

65.7 

59.3 

P 

72.2 

66.7 

61.4 

0 T>gat t r,*» r.rry n.rr 7 ‘7* 

nboviju a_j iiwAjAixtaj 

PVTm 
UA X X 

J 7VT 

DTT ,\mTV7 ' m nfWC y O 

EXIT 

0.958 

0.866 

0.784 


0.811 

0.735 

0.668 


A complete computer output for the base case is included as Appendix A. 

The above aerodynamic analysis is, of necessity, a predesign analysis; 
following it, the blade profiles are designed to satisfy the velocity triangle 
requirements. Once the blade profiles have been generated two more phases of 
turbine aerodynamics are executed. First a detailed blade loss analysis b.as-d 


on blade section properties is made using Soderberg’s Method. The performance 
prediction from this method of analysis is compared with the pre-design 
analysis and any significant discrepancies are resolved through blade profile 

or clearance modifications. Secondly, the surface velocity distribution is 
analyzed for adverse diffusion characteristics using the NASA velocity distric 

program. 


the 


and/ 


action 



Design of the NGRVA turbine has not progressed to the point of 
conducting these final aerodynamic design studies, however, the final turbine 
design will have these considerations incorporated* 

RHFSR2NCSS . 

1 . A Study of Axial-Flow Turbine Efficiency Characteristics' in 

Terms of Velocity Diagram Parameters , by Warner L. Stewart, 

ASMri Paper 61-V/A-37 

2 * Experimental Investigation of Three Tip-Clearance Configurations 
Over a Range of Tip Clearance Using a Single-Stage Turbine of 
High Hub-to-Tip Radius Ratio , by Milton G. Kofskey, NASA TKX-472 


APPSNDIX a 


BASS CASS 

COMPUTER PRINTED OUTPUT 
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9 ? 9 • T 
CO X*T 
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X 6 C * 0 

CC*0 

0S*X 

seo*o 
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00*7*0 

000 *T 

5X6*0 

S X 9 * 0 

00*99 

OC T * C 

£60 * 0 

sc*o 

52*1 

SCO* 0 

00*7*0 

00*7*0 

000 * T 

X86* 0 

520*0 

cs*cx 

060*0 

OCT * 0 

9 V * 0 

00*1 

SCO * 0 

00*7*0 

00*7*0 

000* T 

000*1 

000*1 

oo*sx 

050*0 

'XSNQ9 



N I 

*33309 

*33309 
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oixva 
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oixva 

oixva 
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SS03 

SS03 

AX I 9013A 

snrova 
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319NV 
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09/ nx 

X33dS V 

aoxoa 

aoxoa 
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IV I XV 
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i 
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CO 300000*0 
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VX33C 
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000 * 5 
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OSX * 0 
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SS03 *NVW 


0*00061 
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033dS 
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0*50C 

VlSd 

3dOSS3dd 
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0 * 099 1 
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SO* 4 ? 

93S/83 

3XVd 
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0* C62X 

a3MOd3S60H 
X 3 V H S 


; 


y 


^C-3C*7€ I *C 
93S-X3/33 
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3i03CS8V 


sc-ceio 

a'3Swn!g 3SV9 


*?0S*C 
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3bHSS3dd XNVXSN09 
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OlXVa 
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XC’*99i 
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XNVXSN09 
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S3 1 ia3d08d SV9 
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3M9aOX “lOCdS 319NI S' 
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— 3/M 103080 
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( 

# . DAT507-: 9-68 


( 


( 

( 

STAGE 

1 

U 

ft/sec 

1161.2 

1200.0 

1238.7 

vul 

FT/SEC 

6567.3 
6432.7 

6285.3 

VX1 

ft/sec 

1765.1 
1723.6 

1684.1 

VI 

FT/SEC 

6819.7 

6659.6 

6507.1 

( . 

2 

1132.3 

1185.5 

1238.7 

5693.^ 

5498.5 

5317.3 

t 

2016.1 

1947.1 

1883.0 

6039.9 
5833.1 

5640.9 

( 

3 

1101.7 
1170.2 

1238 . 7 

4895.9 

4681.5 

4486.6 

2179.8 
2084. 3 
1997.6 

5359.3 

5124.5 

4911.2 


( 


i 




STAGE. VELOCITIES 
non twisted blades 



rT/SEC FT/SEC 
5426.1 5706.0 
5232.7 5509.2 
5046.6 5320.2 


^561.1 4986.8 
4313.0 4732.2 
4078.5 4492.2 


3794.2 4375.8 

3511.2 4083.3 

3247.9 3813.0 


VU2 

VX2 

FT/SEC 

FT/SEC 

-4353.7 

1775.9 

-4152.7 

1723.6 

-3972.2 

1678.0 


-3560.8 

2018.9 

-3340.9 

1947.1 

-3150.0 

1887.9 

-2868.0 

2 1 6 8 ♦ 6 

-2645.2 

2084.3 

-2457.5 

2019.2 


V2 

Vi'JZ 

FT/SEC 

FT/ SEC 

4701.9 

-5514.9 

4496.2 

-5352.7 

4312.1 

-5211.0 


4093.3 

-4693.1 

3866.9 

-4526.4 

3672.4 

-4386.8 

3595.6 

-3969.7 

3367.7 

-3815.5 

3180.7 

-3696.3 


*2 REACTION 
FT/SEC 

5793.6 0.039 

5623.4 0,050 

5474.5 0,065 


5 j. y . 0 C.05S 

4927.4 0.090 

4777.6 0.126 


4523.4 0.076 
4347.7 0.130 
4211*8 0.166 



stage 

ABSOLUTE 

RELATIV 


\CZZlE EXIT 

ROTOR EX 

1 

0.995 

0.939 


0.958 

0.911 


0.932 

0.787 


2 

0.902 

0.765 


0 . 8 ft 6 

0.734 


0.833 

0.710 

3 

0.824 

0.697 


0.763 

0.668 


0.7*7 

0.645 



{ 



■<?e *T9- 

6.5 *C5- 

0*7*65 

=£•19- 

34* X5- 

C£ * 65 

5£*X9- 

06*25- 

ZI * 09 


24*99- 

9C*65- 

X 2 * 59 

Zc* 99- 

94*65- 

04*59 

24* 99- 

6*7*09- 

51*99 


51*24- 

60*49- 

65*X4 

51 *24- 

5*7*49- 

9 4 * T 4 

5T *24- 

03*49- ' 

96* T 4 

030 

030 

030 

2 7X39 

ZVHcHV 

IVX39 


* 30 Vd 


00*99 



00*99 



00*99 

£♦79*96 

161*65 

05*04 



05*04 



05*04 

468*8? 

966*62 

00*54 



00*54 



00*54 

542 * T? 

664*91 

030 

Nl-OS 

N I -OS 


2 V3&V 

X V3dV 

TVMdlV 

smnNNv 

smnNNv 


S30V18 

031SIMX N 


AW43W039 3 v 9VlS 




1 


y 


> 


j 


928*0 

2 64*0 

6450*4 

e 



\ 

J 

269*0 

£55*0 

I05X *4 

z ' -> 




) 

496*0 

99£ * 0 

£ 4£2 * 4 

X 

N I 

' MI 

MI 

J 

Z 1MOI3W 

X XH9I3H 

smovy 


30V18 

30V18 

MV3W 

30VXS 
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DATE07-1 9-6 8 


PRESSURES 


temperatures 


NON TWISTED BLADES 


STAGE 

1 

PT1 
PS I A 
272.7 
2 72.7 
272.7 

PI 

PSIA 

146.8 
151.5 

155.9 

PT2 

PSIA 

158.Q 

157.2 

155.9 

P2 

PSIA 

116.6 

118.6 

120.4 

PRS 

2.518 

PRT 

1.900 

TT1 
DEG R 
1660.0 
1660.0 
1660.0 

T 1 

DEG ft 
1394.9 
1407.2 
14 1 6 ■ 6 

TT2 
DEG ft 

1515.1 

1515.2 
1515.2 

2 

137.3 

137.3 

137.3 

i 

81.2 

84.3 

87.2 

91.7 

90.7 
90.0 

71.3 

72.5 

73.5 

2.168 

1.732 

1515.2 

1515.2 

1515.2 

1307.2 

1321.2 
13 33.8 

1398.7 

1395. 7 
13 93.6 

3 

83.9 

R3.9 

83.9 

53.8 

56.0 

58.0 

60.8 

60.2 

59.7 

49.4 

50,2 

50.8 

1.807 

1*507 

1395.7 

1395.7 

1395.7 

1232.0 
1 2 6 * 0 
1258.2 

1296.2 
1296 . C 
1297.6 



\ 
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DATEC7-1 9-68 STAGE PERFORMANCE PAGE & 


< 

stage 

i 

L A'-O A 
0.113 

DEL H 
BTU/LB 
507.3 

ETS 

0.381 

/ ETT 

0.5*!8 

U/CO 

0.147 



2 

C . 1 3 4 

418.5 

0.403 

0.550 

0.164 


( ' 

3 

0.159 

342 . 4 

0.456 

0.642 

0.190 

f 

( 

i 





OVERALL BLADE PERFORMANCE 


i 

DEL H 
STu/LB 
1268.4 

UVA 4 - 

FT /SEC 
. UBS. 2 

U/CO 

0.110 

U/CO • 
0.115 

PRST 

5.953 

PRTT ETST ET TT RET RE$ 

4.964 0.552 0.601 1.068 1.077 






overall Turbine 

PERFORMANCE INCLUDING MAM FOLD 


( 

u/co 

0.110 

u/co* 
0. 1 14 

PRST 
6*07 5 

PRTT 

5.065 

ETST 

0.548 

ET T T 
0,595 

. i- 




OVERALL 

TURBINE 

PERFORMANCE 

: INCLUDING MANIFOLD AND EXHAUST COLLECTOR 

f 


U/CO 

0.106 

U/CO’ 

0.108 

PRST . 
7.011 

PRTT . 
6.589 

ETST 

0.517 

ETTT 

0.530 







INLET 

MANIFOLD CONDITIONS 



AREA 
SC- IN 
11. AS 

v ach NU^ 
0.200 

P 

PSIA 

296.6 

T PT^E 

DEG-R - PSIA 

1647.1 298.3 • 

EXHAUST -COLLECTOR EXIT FLANGE CONDITIONS 


y 

AREA . 
SC- 1 N 

VAC* NUV 

PT 

PSIA . 

P 

PSIA 

TT 

DEG R 

T 

DEG R 

■ ( 


45.94 

C.3C0 

46.2 

43.5 

1298.0 

1275.5 
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APPENDIX B 

MULTISTAGE AXIAL FLCW TURBINE 
PERFORMANCE ANALYSIS PROGRAM 



A computer program has been developed for performance analysis of mult- - 
stage axial flow gas turbines. Its primary purpose is for predesign analysis 

4 

of turbines to establish turbine operating characteristics, pressures, tempera- 
tures, gas velocities, flow channel geometry and approximate blade root stresses. 
The program has been used principally in connection with rocket engine turbopump 
applications, however there are no known program limitations which prevent its 
on any other axial flow gas turbine application. 

This program is in the IBM 1130 version of Fortran IV. 


use 



A. 


PROGRAM DdSCRI FTIOH 


This computer program has been devised for parametric analysis of multi 
stage, single or two-spool, axial flow gas turbines. Because of the fact that 
a large number of independent variables are considered during parametric 
analysis of turbines and because of the many mathematical relations' involved 
(some requiring numerical solution), it was necessary to employ a high-speed 
digital computer. The program is in the IBM 1130 version of Fortran IV and is 
used on that machine. All major parameters consistent with conventional gas 
turbine design have been included in the analytic procedure. Specific infor- 
mation determined by the program includes the following: 

1. Velocity diagrams 

2. Mach numbers ' 

3. Flow channel geometry 

4. Gas state at each axial station 

5* Performance 

Blade root stresses 


B. 


o. 


MFTHOD CF SOLUTION 


The analysis utilized in this program is based on the following major 
assumptions: 

1. One-dimensional flow at the mean radius 

2. Subsonic and/or transonic flow 

3* Adiabatic .-flow in stators 

The loss analysis used in the performance section of the program is a 
modified version of that discussed by Stewart in Reference (1). In this loss 
analysis blade row losses are assumed to be a function primarily of the average 
kinetic energy of the blade row. Hence, specification of the velocity triangle 
for a stage througn the specific work requirement , stage reaction, nozzle 
discharge angle and blade speed leads to turbine performance and associated 
parameters such as gas state. 
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Inlet manifold and exhaust collector losses are calculated using a total 
pressure loss coefficient defined by 

Po., - Po 

Y = fT-T-p" 

2 2 

where 

Yp = Total pressure loss coefficient 
Pop = Inlet total pressure 
Po 2 = Exhaust total pressure 
Pp = Exhaust static pressure 

These two component losses are included in over-all turbine performance. 
Although performance is based on a one dimensional analysis at the mean 
line, the radial variation of flow properties based on the mean line values is 
determined assuming simple radial equilibrium. 

This is accomplished for either of the* following two types of blading: 

1. Free Vortex 

2. Non- twisted 

Determination of the radial variation of flow properties serves at least 
these three purposes; . 

1. Evaluation of axial bearing loads 

2. Evaluation of blade gas bending loads 

3. Evaluation of blade root reaction 

Distribution of work between stages is specified by the "stage load ratio' 
defined as follows: 

Ah. 


where 


= Stage load ratio of stage i 


Ah. 

1 

- ' The specific 


— Tno specific 


2 


w 


Obviously the stage load ratio for the first stage is always one (l). 

The. meridional curvature of the turbine is determined by the "mean radius 
ratio" defined by 


where 


Urn. 

Y = • — — 

i Un^ 


Y. = The mean radius ratio of stage i 

i 

Um^ = Mean blade speed of stage i 
Um^ = Mean blade speed of stage 1 


Also for the first stage this parameter is always one by definition. 
Axial acceleration of the flow across the rotor is given by the "axial 
velocity ratio" defined as 


Vx 


Z i ” Vx 


2,i 


where 


i,i 


= the axial velocity ratio of stage i 

Vx-, . = rotor inlet axial velocity of stage i 

1 1 1 


Vx 


2,i 


rotor exit axial velocity of stage i 


In addition to the aero-thermal aspects of the xrogram, provision is made 
for determining blade root stress for each rotor. Blade root stress is determined 
for uniform cross section blades, hollow blades, tapered blades or a combination 
of hollowing and tapering. The radial distribution of blade cross section area is 
given by 

t- - ~ = B + C 0 + D 0 2 

it. 


r - It 


0 = - 


:< T 


- R 
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wher 


) 




A(r) = blade cross section area at any radius r 

A^ = blade cross section area at the point where area begins 

to change 

B - constant 

C = constant a 

D = constant 

r s= radius corresponding to A(r) 

R = hub radius 

h 

R,p - tip radius 

R^ = radius at which area begins to change 

0 = non-dimensional radius 

$ = 0 at which area begins to change 

The centripetal stress equation is then dependent only on the constants 

B, C, D and £ • Although the precise blade geometry v/ill generally not be known 

in the initial turbine design phase, the required constants may be determined from 

a similar family of blades with reasonable accuracy. If the blades are of uniform 

cross section, then 

B = 1 

C = 0 

D s 0 

and the stress equation is independent of £ . 

Assuming symetrical beam bending, the bending stress at the blade root is 
given by 

cr- _ JL 
b Z 

where 

C'-'k = bending stress 

M . = . bending moment 
Z = section modulus 

and the section modulus is assumed to be 

P 


Z 


= c Ct“ 
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where 


£ = section modulus constant 


C = blade chord 
t = "blade thickness 

t 

The bending stress equation can then be reduced to a form which is dependent 
on the following blade. properties: , 

Solidity 
Aspect Ratio 
Thickness/Chord ratio 
Section modulus constant ( £ ) 

If a blade were of rectangular cross section then 

S = 1/6 

For actual blades, £ may be only fifty or sixty percent of this theoretical 


value . 


r 11 a 




O V J- W 


< 1 /-,-i t * 1 o -4- -? mo t r l\o nu o 


it a speed other than that for which 


nominal nerformance is d.one* The speed at which s cress is determined is gi/en 
by 

!•: = II x F 

s n os 


where 

IT = stress speed (or 'overspeed) 
s 

IT 

1 n = nominal speed 

F = over sue ed factor 
os 

The power used for gas bending, stress is then given by 

SR? = SnP x F os 
■ s n os 

where 



n 


E - over speed exponent * ar turtopiu^pa) 

Oo 


Special features of the program provide for the following : 

1. Specification of turbine pressure ratio or turbine weight flow 
rate, whichever is considered independent. 

2. Internal modification of the meridional flow curvature to give 

it 

all rotors the same tip diameter * . 

3. Internal modification of one of the following parameters to 

arrive at some blade root stress limit: j 

a* Rotative speed 

b. Mean blade speed 

c. Pressure Ratio 

d. Inlet pressure 

4. Single turbine or two turbines in series (tv/o spool). 

The maximum number of stages per turbine is ten (ten for each spool in the 
two spool configuration). 

The above discussion is only a brief explanation of the methods employed 
in this program and is intended to provide the minimum information necessary for 
program use. A complete report with all equations and numerical solutions 
employed (AGO RN~TK-04ll t Design Point Performance Analysis of Multi Stage Turbines) 
is currently being written. 

C. OPERATING INSTRUCTIONS 


Two types 01 cases should be considered in the following discussion. The 
first which is the basic case contains all information necessary for the case to be 
executed and must be the first case for any given job loading. The second type of 
case may not be used as the first case and is used to change one or more parameters 
in the previous case. This provides a convenient method o;f stacking cases, requiring 
only a . few cards. Base cases may also be stacked and is advised if a large number of 
parameters are to be chxn^ed. Loading of each type of case is discussed in detail in 
the following section. All options are controlled by either a flag or a data switch. 




numbers. 

CARD 3 - This card is for an identifying case number consisting of 

any six alpha-numeric characters. 

\ 8) Case number 


CARDS 

4, and 6 

- 

These 

j th: 

ree cards a 

re- 

title 

cards and may con- 




tain 

any 

alpha-nume 

ric 

data. 

, This information 




has been 

divided in 

to 

three 

categories (one for 




each 

car 

d). 




® 

Turbine 

Ap 

plica 1 

;ion 

(Card 1) 




■i?;- 

Turbine 

Ch 

araett 

iris 

tics (Card 

2) 



n; 

Case Ob 

jec 

tives 

(r n 

\ w cl 

rd 3) 
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GAT'D 7 




!l 2, 

@ 

@ 




This card is for the six option control flags and number 
of spools (one or two). The values to be assigned each 
flag for the desired case options are .shown on page 25* 

Radial velocity distribution option flag 

a 

Stress option flag 

Index page option flag - This option provides for print- 
ing a duplicate of the case input data, identical to the 
first page of output, to be used for filing purposes* 
Typewriter option flag - If. one of the stress adjusting 
options is selected (via flag 13- )i intermediate values 
of the adjusting parameter may be observed on the 1130 
console typewriter during the adjusting, cycle . This is a 
diagnostic device and is controlled by this flag. 

Pressure ratio option flag 
Number of spools 

Case flag - indicates whether next case is a change case 
or base case* 

The required pressure ratio is placed on the card* If 
flag lo) is option five (5) , this card m ust be omitted* 
Pressure ratio 

The next two cards contain information which is independent of whether 
the case is for a single or two-spool configuration. 


(16) 


17 . 

•‘■'-1 o\ 

UO; 


CARD 8 


19 ) 


CARD 9 


20 


21 ' 

22 




Turbine flow rate lb/ sec 

First spool, first rotor mean blade speed ft/sec 

Fxhaust collector flange Mach number 

A value must be input for this parameter regardless of 
whether an exhaust '.collector exists on. the turbine analyzcc 
or not. It's value must he greater than zero (0) and less 
than one ( 1 ) . 
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'25 

26 

27 


Spool radius ratio 

Defined as the ratio of first spool last rotor mean blade 
radius to second spool first rotor mean blade radius. If 
the case is for a single spool, any value may appear in 

■ ■ a 

this field. 

Inlet total temperature °R 

Inlet total pressure psia 

Inlet manifold flange Mach number required as is parameter 



Inlet manifold total pressure loss coefficient 
defined on page 2. 


CARD, 10 

28 Exhaust collector total pressure loss coefficient 

defined on page 2. 

Parameters 27 and 28/ must be input but may be zero (0) in which 
case the losses of the manifold and/or exhaust collector are zero. 

29 Inlet tangential' velocity ft/sec 

This parameter is used only if data switch two is up. 

Its primary use is in single spool analysis of the second 
spool of a two spool pair where the tangential velocity 
component leaving the first spool is known. 

CAR D 11 -This is the first card containing individual spool infor- 
mation. Specifically it contains information pertaining to stress calculations 
and mu 5 t be omitted if flag 13 is o pi ton five (5). 


(O'. 

‘ K\ 

Rotor 

material density ; 

Ib/ii2 

31 

First 

spool rotor stress limit 

psi ; 

32 

Over 

spaed factor 

— 


defin 

ed on page 5. 
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Over speed -expo non 




6 v 


defined on page 3* 
Delta 

defined on page 3 • 


CARD 1 2 


6?, 


Shaft power of spool Hp 

Rotative speed of spool RPM 

Number of stages in spool 

The next series of cards contain information pertaining to individual 
stages. Each card must have as many values as there are stages. Additional 
values will be ignored. 

CARD 13 

(38) Stage reactions 

CARD 14 
^ ^ 

Degrees 


(39! 

skRD 

fo) 

CARD 16 


(hi 


CARD 17 

42 

CARD' 18 

43 


CARD 19 

4A 

OAR) 




Stage nozzle angles 

'Stage load ratios - defined on page 2 • 

Mean radius ratio - defined on page 3- 

Axial velocity ratios - defined on page 3« 

Nozzle blade loss coefficients 
defined in reference (l) 

Rotor blade loss coefficients 
defined. in Reference (l) 

iao tOi n w cream, nce- 


m , 


10 



CARD 21 


( 46 N; 


Rotor aspect ratio 


J 


CARD 22 

i4y 

CARD 23 

Q. 


n - nl, 

O-". itx/ £2^ 


Rotor thickness/chord ratio 


Rotor solidity 


XJ 


\ 4 


■49 Rotor blade section modulus constant 

defined on page 5-' 

CARD 2$ . - This card has the coefficients determining the blade radial 
cross sectional area distribution. They are the coeffi- 
cients of a quadratic equation as defined on pages 3 and 4. 

\50; Constant term 

Linear term coefficient 

(52- Quadratic term coefficient 

For a constant cross section blade, the following parameter values 
must be used: 

34 « 1.0 

50 = 1.0 

51 = 0.0 

52 ; o.o 

Cards 21 through 25 contain information pertaining to the stress 
analysis portion of the program only. They may be omitted if flag 13 is option 
five (5) but must be included if blade root stress is desired. 

The above cards constitute a complete base case for a single spool 
turbine. If there are two spools, cards 11 through 25 must be repeated for the 
second spool. 

Additional base cases may be stacked by starting over .with Card 3* 


to be two (2) for each case preceding a base case. 


_ ] 1 


o 



For a change cane flag @ must be one (1) on the preceding case 
and the following cards make up the change case: 

CA RD l a ~ This card contains a new case number. 

Case number 

4 

CARD 2a - This card contains the number of parameters to be changed 


and the code number of each. 

'53' Number of parameters to be changed 

(p 4) Parameter code numbers (as many as indicated by ). 

Code numbers for each parameter appear on pages 21 through 24 together 
with restrictions on their use. Code numbers should not be confused with circled 
parameter numbers. 


CARD 3a 

(55, New; parameter values 

New parameters must appear in the same order as the corresponding code 
numbers on Card 2a, one parameter per card except for parameters with code numbers 
25 thru 46 (see page 24 ) . 

In addition to those options controlled by the flags on Card 7? other 
options may be exercised through use of the IBM 1130 Console data switches. 

Switch 1 is used to control the type of velocity triangle. The normal selection 
is with this switch off (down) and this normal switch position should be used 
almost exclusively. 


Switc h 2 is used in conjunction with the inlet tangential velocity (parameter 
29) ) and must be on whenever it is desired to input this parameter. 

• _ Switch 3 is used to control the constant tip radius option. It causes 
internal adjustment cf the mean radius ratio of successive stages after the first 
until all rotors have the same tip radius. 

For switch. positions and their effect, see page 26. 
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d. restrictions 

This program is restricted to a naximum of ten stages per spool. The 
blade loss analysis includes no provision for shock losses, therefore use of 
the program should be restricted to subsonic and transonic flow. 

.4 

Selecting the option cf controlling blade root stress by internal 
■adjustment of mean blade speed should be done with caution since blade root 
stress is relatively insensitive to blade speed, at constant rotative speed, 
and only small adjustments can be made* 

E. TIMING (IBM 1130 COMPUTER) 

Initial loading of the program requires approximately seven. (?) minutes 
in object deck form. Execution of each case thereafter requires between two 
(2) and ten (10) minutes depending on the number of stages and the options 
selected. 

F . STORAGE REQUIREMENTS 

The core-storage requirement of the mainline program and all of its 
associated subroutines is approximately 20000 word bits. However, the program 
is used on the I3H 1130, with only 5000 (aprox.) word bits of core storage, by 
maintaining the subroutines on a "load on call" (LOCAL) basis. 

G . LISTING 


A listing of the program with all control cards required for compilation, 
production of an object, deck and execution of the program on the IBM 1130 
computer is attached. Data cards for the following example case are also 
listed at the end of the program following the "jlGCA L !! cards. 


ii ijX.tu - A.r ij-j C/J-.o Hi 

The printed output 
information generated by 
seven (?) stages o:i the f 
Hydrogen gen properties a 


for an example case is attached to exemplify the 
the. program. This, case is for a twin-spool esse with 
irst. spool and. three (3) stages on the second spool, 
re used for this case. 
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Input data for the case is listed on page one (l) and the optional index 
page of the output. Some of the parameter values listed here may differ from 
the values appearing on the input data cards. This is the result of program 
modification of certain input data to satisfy specified options. In any case, 

... a 

the data printed on the first page is consistent with the remaining information 
generated by the program. Two additional pieces of input information, inlet 
manifold and exhaust collector Mach numbers, appear on succeeding pages of the 




w 


output. 

Listed on page two (2) of the output are the blade and gas velocities. 

The radial distribution used (free vortex or non- twisted blades) is listed at 
the top of this page and on all other pages where it has an effect on the 
parameters listed. The velocities or velocity components are given for three 
radial blade positions; hub, mean, and tip; in that order. 

The absolute nozzle exit and relative rotor exit Mach numbers are printed 
on page three (3), again for three radial blade positions. 

Mean rotor radius, blade heights, annulus areas, and gas angles are given 
on page four (4). 

On page five ( 5 ) pressures and temperatures are given at the various axial 


stations. One (l) denotes stator exit conditions and two (2) denotes rotor exit 
conditions. 

Turbine performance is listed on page six (6) with individual stage 


performance preceding over-all performance. 

Stress information is given on page seven (?) for each rotor. 

If the case is for a two-spool configuration (as is this example), then 
pages one (i) through seven (7) are repeated for the second spool as pages 
eight (8) through fourteen (14). Over-all two-spool performance is given on 
page fifteen ( 15 ) and is based on the following four (4) loss configurations: 

1. Both spools excluding manifold and. exhaust collector losses. 

2. Both spool 53 including, manifold losses. 

Both spools Including exhaust collector losses. 
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4. Both spools including manifold and exhaust collector losses. 
Parameters listed on the printed output in symbolic form which are not 
explained elsov/hore are defined as follows: 

Par e 2 and 9 Output 

U = Kean blade speed . 

VU1 = Stator exit tangential gas velocity component 
VX1 - Stator exit axial gas velocity component 
VI = Stator exit gas velocity 
will = Rotor inlet relative tangential gas velocity component 
V/l = Rotor inlet relative gas velocity 
VU2 = Rotor exit absolute tangential gas velocity component 

VX2 = Rotor exit absolute axial gas velocity component 

V2 - Rotor exit absolute gas velocity 

WU2 = Rotor exit relative tangential gas velocity component 

W2 = Rotor exit relative gas velocity 

Pag e 4 an d 11 Output 

Blade Height 1 - Stator trailing edge blade height 

Blade Height 2 - Rotor trailing edge blade height 

Annulus Area 1 - Stator trailing edge annulus area 

Annulus Area 2 - Rotor trailing edge annulus area 

Page $ and 12 Cutout 

FT1 > Stator exit total pressure 
FI - Stator exit static pressure 
PT2 - Rotor exit total pressure 
P2 - Rotor exit static pressure 
TT1 - Stator exit total temperature 
T1 - Stator exit static temperature 
TT2 — Rotor exit absolute total temperature 
T2 - Rotor exit static temperature 


■) r. 



LAM'DA 


Stage Work-Speed Parameter (Reference 1) 


DSL 

H ~ 

Stage Specific Work 

ETS 

- 

Stage Total to Static Efficiency 

ETT 

- 

Stage Total to Total Efficiency 

U/Co 

- 

Stage Isentropic B pouting Velocity Ratio 



OVER-ALL BLADE FERFGRKANCE 
(No manifold or exhaust collector losses) 

DSL : 

H - 

Over-all turbine specific work 

UMA 

- 

Average mean blade speed 

U/Co 

— 

Over-all isentropic spouting velocity ratio 
(based on static pressure ratio) 

U/Co 

i 

Over-all isentropic spouting velocity ratio 
(based on total pressure ratio) 

PRST 

- 

Over-all total to static pressure ratio 

PRTT 

- 

Over-all total to total pressure ratio 

ET3T 

- 

Over-all total to static efficiency 

ETTT 

- 

Over-all total to total efficiency 

RET 

- 

Total reheat factor 

RES 

- 

Static reheat factor 

Following 

the 

above performance data is essentially, the same 

including 

the 

manifold loss (page 6) or exhaust collector loss 



INLET MANIFOLD. CONDITIONS 

AREA 


Inlet manifold flow area 


Static pressure corresponding to inlet conditior 
and inlet Mach number 
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T 


Static ten; per.-. ture 



v.y 


w 
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AGCS-G3 JO-u 


~ Ci 


CDiiPuKATiGft 


; FiZPGti T NO. 


P ARAXjiT^A Cfl 


B3iO>f PaCGSA. M. ...... 

l x ;ge code sheet. 


K. KIRK 


CCDS NO. 


PARAMETER 


CHARACTERISTIC THIS CARD. 
OBJECTIVE TITLE CARD..... 


■■■_', *'*/ O/OO 

WOftk O rv O £ rv‘ 


FORTRAN SYKBOI 


J TIT 12 

TITL3 


blade type parameter. 


STRESS CA1CULAT ION PARAMETER. 
HOEX PAGE PRINT PARAMETER. 
PRESSURE RAT 10 PARAMETER. ... 


HUMBER 0? SPOOLS. 


PRESSURE RATIO. 


FLOW RATE. 


FIRST STAGE, FffiST SPOOL, PEAN BLADE SPEED... 

EXHAUST FLANGE MACK nttmr m 

a. 

SPOOL MEAN RADIUS RATIO.. 

INLET TOTAL TEMPERATURE. . ........... 

INIET TOTAL PRESSURE 

J IRST SPOOL SHAFT HORSEPOWER 

SECOND SPOOL SHAFT HORSEPOWER. 

FIRST SPOOL ROT AT IVE SPEED 

SECOND SPOOL ROTATIVE SPEED ....... 

FIRST SPOOL BLADE LOSS COEFFICIENTS. 

SEuQA'D SPOOL BLADi LOSS COEFFICIENTS. 

FIRST SPOOL MANIFOLD LOSS COEFFICIENT........ 

SEwbNB SPC^L MANIFOLD LOSS CESFF. (EXH. CO 7 t > \ 


* ^ i3 - L SPOOL NUMBER OF ST AGES . 


• j IF LAG ' 
-j MI (M) 

I JFLAG 
MFLAG 
LFIAG 

PREQS; PREQTj 
PRQOSj PRQOT. 


UM (1) 
EMACH 
j RFACT 
TTI (1) 
PTI (1) 

sap CD 

SHP C2) 

SP Cl) 

SP (2) 

COE Cl, 1 ,D 

COE (1, 2, 1) 
002 (2,1,1) 
COE (2 ,2,1} 

COEM (I) 

CCEM(2) 


i 





■■ M*UJ|! R: HAI CORPOlUTIO* 

»uj.2TJA.r?^g 

jJiifftKAl J? * AC • AMllH V • < * U # tj *H *A 


GAS TOliH INK DSS IGK PROGRAM* 

PARAMETER CHANCE CODE SHEET. . . . .CONT INUED 


i .u t -se%, 

UAl i 


I Af,i 2. 3 ‘A 2(c 


2/8/6E 


WOIIK OROKH 




PARAMETER 


FORTRAN SYMBOL 


STRESS LIMIT. 


OVERSPEED FACTOR, FIRST SPOOL. .... . OSF (l) 

OVERSPEED FACTOR, SECOND SPOOL............... OSF (2) 

OVERSPEED EXPONENT, FIRST SPOOL. ......... CSEXP (1) 

0VERSP5ED EXPONENT , SECOND SPOOL .... .......... CSEXP (2 ) 


ROTOR BIADE TAPER DEPTH, FIRST SPOOL. ........ DELTA (l) 

ROTOR BLADE TAPER DEPTH, SECOND SPOOL. ....... DELTA (2) . 


INLET TANGENTIAL VELOCITY. 

\ 

INLET FLANGE MACH NUMBER.. 


INPUT PARAMETER. 




/ *****' ^riiiim; fjAi no »p nil Aim* 

i II Xi Ml M«l;:l . I MlflllHN 


m I •< in < in 


GAS THU j. £ N Is DESIGN PROGRAM. . . . 

PARAMETER change code sheet... 


...CONTINUED 




K. K IRK 


f-A / >1 
HAM 


24 

"2/8 /ax 


WONK OIUll'U 


OAU 


NOTES j 


THESE PARAMETERS KAY HE REDUCED FROM THE BASE CASE BUT 
MAY NOT HE INCREASED FROM THE BASE CASE. 


m 


THIS PARAMETER NUMBER. REFERS TO THE FOLI0WING PARAMETER 
DEPENDING ON THE HOST' RECENT VALUE OF MFLAG; 


PRKQS FOR 
PREQT FOR 
PRQOS FOR 
PRQOT FOR 


MFLAG - 1 
MFLAG - 2 
MFLAG * 3 
MFLAG = 4 


W THIS PARAMETER MUST HE CHANGED T0_2_ IF A NEW BASE CASS IS TO 

FOLLOW. ( CODE NUMBER IS ALL THAT IS REQUIRED ) 



IF PARAMETERS 25 THROUGH 46 ARE TO BE CHANGED, 
FOR ALL STAGES OF A GIVEN SPOOL. 


THEY MUST HE RESPECIFIED 


FOR PARAMETERS Vj AND 20 , BOTH ROTOR AND SI' AT OR LOSS COEFFICIENT 
OF THE SPOOL MUST BE RESPECIFIED. 




AGCS-OaOO-1 1 


AEROJET-GENERAL CORPORATION 

LfllNifAt M & AC lAMiN f O • CAlirO*MIA 


fU PORT NO 


f’AGL o\ 22 


GAS TURBINE DESIGN PROGRAM CONTROL FLAGS FOR CARD SEVEN 


2/B/68 


WOHK OHtJl U 


HY 

CHK HY 

DA r ! 

K. KIRK 

1 

■a 


GROUP ON E 

1 - FREE VORTEX BLADES. 

2 * NON .TWISTED BLADES. 

GROUP TW O 

0 - SI' RES S CALCULATED. 

1 - STRESS ADJUSTED BY Urn. 

2 - STRESS ADJUSTED BY Ptl. 

3 STRESS ADJUSTED BY Pr. 

4 - STRESS ADJUSTED BY N. 

5 - STRESS NOT CALCULATED ( OMIT CARD 11 ) 


GROUP THRE E 
1 
2 


PRINT INDEX PAGE. 

DO NOT PR INT INDEX PAGE. 


GROUP FOUR 


1 * TYPEWRITER OUTPUT. 

2 > NO TYPEWRITER OUTPUT. 


PRESSURE RATIO IS MAIN STATIC. 
PRESSURE RATIO IS MAIN TOTAL. 
PRESSURE RATIO IS OVERALL STATIC. 
PRESSURE RATIO IS OVERALL TOTAL. 


!•} 


EXCLUDING EXHAUST COLLECTOR 


GROUP FIVE 

.f In 

2 - 
3 ■ 

■ 4 ■ 

5 - NO PRESSURE RATIO REQUIRED....... ( OMIT CARD B ) 

GROUP SIX 

1 « SINGLE SPOOL. 

2 * TWO SPOOL. 


GROUP SEVEN 


1 - NEXT CASE IS CHANGE ONLY. 

2 - NEXT CASE IS A COMPLETE CASE. 


G StA»*A** TfiTAVCUr 

j/fu ciry 7 optica / 




i t T a;/ 'vk/icJ-t-/ ZnpPt ** ?A*6. JQ 

o X*? It r l** f €'***( ■ / r 

G __ fcOT*/*- M LXA/e APA***TASA**~0 PrS 

/, b T^O /*<>/%■ 

GfZcvP etevtstf _ M* v >-UJ 

z$//=6 - x.^/’^r /***» /v^ 



c $ ^ 


P 




/ ' 


/ ' 





SWITCH- OKS 


SWITCH TWO: 


DOWN (STANDARD )....*. VELG-G H Y TRIANGLE, TYPE *• 
UP ( OP^CN l^toc 3TY TRIANGI3 , TYPE 2. 


DOWN ( STANDARD}. . . / . INLET TANGENTIAL, VELOCITY IS ASSUMED ZERO AND 
1 O' NOT TO BE SPECIFIED ON INPUT CARD NUMBER. 10. 

UP (OPT ION) . . / . A* INLET TANGENTIAL VELOCITY IS NOT ZERO AND IS 
V / RIO BE SPECIFIED ON INPUT CARD NUMBER 10. 


SWITCH. THREE; 


'DOWN (STANDARD). .... .ROTORBLUDE MEAN LINE IS MAINTAINED AS , 
j SPECIFIED^ INPUT BY 1(1). 

IT? f OPTION). ...... .ROTOR BLADE MEAN LINE IS ADJUSTED, USING iKE 

t INPUT VALUES OF Y(I) AS AN INITIAL GUESS, 

/ TO OBTAIN A CONSTANT RADIUS BLADE UP'. LINE. 
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PROGRAM 

LISTING 






■ H 

Cvi 

iV-', 


O' 

V v 

r- 

'20 

;> 

o 


CL 

•X 

3 

UH 

vC 0- 

crj C v - 

O -V 

CV 

<n 

3' 

*A 

v.0 

3 

CO 

CD 

o 
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AC 2 ( I )=W2 ( I )/SQ2 
AC1HU ) =V1H ( I ) /SQ1H 
AC IT ( I ) =V1T ( I ) /SQlT 
AC 2 H ( I ) = W 2 H { I ) /SQ2H 
100 AC2T ( I ) = W 2 T ( I ) /SQ2T 
RETURN 
END 

// DUP 

*STORE WS UA CALC.8 

♦DUMP UA CD CALC8 


CALC80A4 
C A L C 8 0 A 5 
CALC8046 
CALC80A7 
CALC8048 
CALC80A9 
CALC3050 



n n n n n 



/ / FOR 

FUNCTION ROOT ( A » B » C , D » X » $ T R ES ) 

FUNCTION SUBPROGRAM DETERMINES A NEW BLADE HEIGHT FOR STRESS 
PRESSURE AND PRESSURE RATIO ADJUSTING OPTIONS USING THE NEWTON 
METHOD ; 

10 FORMAT ( //IX, 'NO SOLUTION FOR AVERAGE BLADE HEIGHT * ) 

NCONT = 0 
ROOT = X 

A 5 FH=B/R00T+A*C*R00T+A*D*R00T**2-STRES 
DFH=-B/ROOT**2+A*C+2.*A*D*ROOT 
COR=FH/DFH 
ROOT =ROOT-COR 
NCONT = NC0NT+1 

IF< ABS CCOR/ROOT J-0.001 ) 100,100,50 
50 I F ( NCONT-3 0 ) 45,45,60 
60 WRITE ( 3,10) 

STOP 

100 RETURN 
. END 
// DUP 

*STORE WS UA ROOT 

♦DUMP UA CD ROOT 


ROOTCOOl 
ROOT 00 02 
ROOT0003 
RAPHSONROOT0004 
ROOT 00 05 
ROOT 00 06 
ROOTOO 07 
ROOT 00 08 
ROOT 00 09 
ROOTOOIO 
ROOTOO 11 
ROOT 00 12 
ROOT 00 13 
ROOTOO 14 
ROOT 0015 
ROOTOO 16 
ROOT 00 1 7 
ROOTOO 13 
' ROOTOO 19 
ROOT 0020 
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: ( Z ) Wlldd* l I ) lldd=lWidd 

( Z ) ildd* ( I )Wlldd=W01dd 
{ Z ) lldd*(I ) ildd=101dd 
( Z ) WiSdd* ( I >Wildd=WWSdd 
( Z ) WlSdd* ( I ) iidd=lWSHd 
{ Z ) ISdd* ( I ) Wi 1 d d = WOS a d 
t z ) isad-tt ( i ) nad=iosad 
WV9/ ( *I-WV9)=VN00 
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DHOOL=DHO ( 1 ) +DHO ( 2 ) 

. SUHTO = SUMHT { 1 ) +SUMHT ( 2 ) 

SUHSO=SUMHS ( 1 ) +fUMHS ( ? ) 

REf;Ol-SUHSO/DHSOL. 

RE50M = 5UHS0/DHS0M . , LO- 

RE S M L = S U H S 0 / D H S M L 
RESMM-SUHSO/DHSMM 
RETOL=SUHTO/DHTOL 
RETOM=SUHTO/DHTOM 
.. RETML-SUHTO/DHTML 
RETMM=SUHTO/DHTMM 
IF ( J-l ) 200*200*100 

100 I PAGE- I PAGE + 1 
WRITE (3*45) 

WRITE (3*10) IM* ID* IY* I PAGE 
WRITE (3*1 5} 

WRITE (3*35) DHOVL »UMAOL *UCSOL *UCTOL » PRSOL *PRTOL » ET SOL * ETTOL , 
1 RESOL* RET CL 
WRITE (3*20) 

WRITE ( 3*35 ) DHOVL »UMAOL *UCSOM >UCTOM » PRSOM »PRTOM ♦ ET SOM » ETTOM » 
lRESOM, RETOM L- 

WRITE (3*25) 

WR ITE ( 3*35 ) DHOVL *UMAOL *UCSML »UCTML » PRSML »PRTML» ET SML * ETTML* 

iresml,retml 

WRITE (3*30) 

WRITE ( 3*35 ) D HOVL ♦ UMAOL * UCSMM ,UCTMM , PRSMN1 , PRTMM * ET SMM * E T TMM , 
■ 1 R E SMM * RE TMM 

WRITE (3*40) AREAF *EMACH , PT.ME ( ? ) » PFCE » TT 2 ( K ) , TECH 
200 RETURN 
END 

// DUP 

*STORE WS UA OVALL I , 

* DUMP UA CD - OVAL I, 


OVALL 083 
OVAL LG 39 
OVALL 000 
OVAL LG 91 
OVALLO 92 
OVALL 093 
OVALL 094 
OVALL 09 5 
OVALL 096 
OVALL 097 

OVALL 09 a: 
C-VALL 0 99 
OVALL 100 
OVALL 101 
OVALL 1 02 
OVALL 103 
■ OVALL 1 04 
OVALL 105 
OVALL 1C6 
OVALL 107 
OVALL 108 
OVALL 1 09 
OVALL 1 1 0 
OVALL 111 
OVAL LI 12 
OVALL 1 13 
OVALL1 14 
OVAL LI 15 
OVALL1 16 
OVALL 117 
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DATE03-0 1-68 STAGE VELOCITIES PAGE 2 

■ * ' FREE VORTEX 
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ROTOR BLADE ROOT 

STRESS 


PAGE 

STAGE 

^EAN 

AVERAGE 1 

STAGE 

centripetal 

BENDING 

TOTAL 


RADIUS 

BLADE HEIGHT 

LOAD 

STRESS 

STRESS 

STRESS 


IN 

IN 

PERCENT 

PSI 

PSI 

PSI 

1 

8*0214 

1.366 

20.0 

37362.2 

1877.8 

39240.0 

2 

8*02X4 

1.626 

18.0 

44471.6 

1419.8 

45891.4 

3 

8^*0214 

1.925 

o 

<3 

52648.5 

1066.0 

53714.6 

A 

6*02X4 

2*266 

14.0 

61971*4 

792.4 

62763.9 

5 

8*0214 

2*652 

12.0 

72513.9 

580.5 

73094.4 

6 

8.0214 

3*086 

10*0 

84379.9 

415.7 

84795.6 

7 

8*0214 

3*262 

o 

o 
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STAGE U 

VU1 

VX1 

Vi 

WU1 

W1 

VU2 

VX2 

V2 

WU2 

W2 

REACTION 

FT/SEC 

FT /SEC 

FT/SEC 

FT/SEC 

FT/SEC 

FT/SEC 

FT/SEC 

FT/SEC 

FT/SEC 

FT/SEC 

FT/SEC 


1 826*7 

3619.6 

1655.7 

3990.3 

2790.9 

3245.1 

•972.7 

1655.7 

1920.3 

-1801.4 

2446.7 

-0.596 

1050*0 

2867*7 

1655.7 

3311.4 

1817.7 

2458.7 

-767.7 

1655.7 

1826.0 

-18)7.7 

2468.7 

0.000 

1271.2 

2374.5 

1655*7 

2894.7 

1103.2 

1989.6 

-634.1 

1655.7 

1773.0 

-1905.3 

2624.2 

0.315 


2 

814.9 

3679.4 

1791.9 

4092.6 

2864.5 

3378.8 

- 989.2 

1791.9 

2046.9 

- 1804.1 

2542.8 

- 0.650 


1050.0 

. 2867.7 

1791.9 

3381.6 

1817.7 

2552.5 

- 767.7 

1791.9 

1949.5 

- 1817.7 

2662.5 

0.0 00 


1285.0 

* 2349.4 

1791.9 

2954.8 

1064.4 

2084.2 

- 627.3 

1791.9 

1898.6 

- 1912.3 

2620.7 

0.329 


3 

797.8 

3756.2 

1934.3 

4225.0 

2958.4 

3534*6 

- 1010*4 

1934.3 

2182.3 

- 1608.2 

2647.9 

- 0.720 


1050.0 

2667.7 

1934.3 

3459.1 

1317.7 

2654.4 

- 767.7 

1934.3 

206 1 .1 

- 1617.7 

2 6 54 . 4 

0..000 


1302.1 

2319.1 

1934.3 

3019.9 

1017.0 

2 * 185.4 

- 619,0 

1934.3 

2030.9 

- 1921,2 

2 7 2 6 . 3 

0 . 3 4 7 
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( 



STAGE 

absolute 

RELATIVE 

c 


NOZZLE EXIT 

ROTOR EXIT 


1 

0*664 

0,403 



0*545 

0.404 

. 


0*473 

0.415 

C 

2 

0.699 

0,428 



0*569 

0.429 



0.493 

0.44 0 

C 





3 

0.740 

0.456 

( 


0.595 

0,457 



0.515 

0.469 


. { 




C 

( 


c 

t 

c 


{ 
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STAGE MACK NUMBERS PAGE 10 

FREE VORTEX 












OATE03-01-66 


PRESSURES 


temperatures PAGE 12 


FREE VORTEX 


t 

STAGE 

PT1 

PI 

PT2 

P2 

PRS 

PftT 

V. 


PS I A 

PSIA 

PSIA 

PSIA 




1 

55*9 

41.7 

48.0 

44.8 





55.9 

45.7 

48.0 • 

45.1 

1.254 

1*179 

. 1 .. 


55.9 

48.0 

48.0 

45.3 



c 

2 

47.4 

34.2 

40.4 

37.2 





47.4 

38.1 

40.4 

37.5 

1.276 

1.187 

c 


47.4 

40.1 

40.4 

37.7 




3 

39*9 

27.7 

33,0 

30.7 





39.9 

31.4 

33.0 

30.9 

1.306 

1*195 



39.9 

33*3 

33,8 

31.1 

* 



TT1 

T 1 

DEG R 

DEG R 

1137,8 

1047.5 

1137.8 

1075.3 

1137. B 

1090.0 


1094.3 

998.8 

1094.3 

1029. 1 

1094.3 

1044.5 


1050.8 

94 9.0 

1050.8 

9 ©2 . 6 

1050.8 

998.6 


TT2 

T 2 

DEG R 

DEG k 

1094.3 

1073,3 

1094.3 

1075.3 

1094.3 

1076,4 


1050.6 

1026.9 

1050. 8 

1029. 1 

1050.8 

1030.2 


1007.3 

960* 1 

1007.3 

962.6 

1007*3 

963.7 
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\ 

STAGE PERFORMANCE 


STAGE 

LAMOA 

DEL H 
BTU/LB 

ETS 

L'TT 

U/CO 



1 

0.288 

152.4 

0.618 

0.844 

0.298 



2 

0.288 

152.4 

. / 0.595 

0*843 

0.293 



3 

0.288 

152.4 

0.572 ■ 

0.844 

0.287 




\ 



OVERALL 

BLADE PERFORMANCE 



DEL H 

UMA 

U/CO 

U/CO* 

PRST 

PRTT ETST 

ETTT 

RET 

BTU/LB 

FT/SEC 




457.4 

1050.0 

0.186 

0.202 

1.328 

1.674 0.735 

0.850 

1.007 




OVERALL TURBINE PERFORMANCE INCLUDING EXHAUST COLLECTOR 

U/CO 

U/CO' 

PRST 

PRTT 

ET ST 

ETTT 



0.18 3 

0.192 

1.888 

1.775 

0,700 

0.770 
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ROTOR BLADE ROOT 

STRESS 

: 

PAGE 

STAGE 

MEAN 

RADIUS 

IN 

AVERAGE * 
BLADE HEIGHT 
IN ' 

STAGE 

LOAD 

PERCENT 

CENTRIPETAL 

STRESS 

PSI 

BENDING 

STRESS 

PSI 

TOTAL 

STRESS 

PSI 

l 

8*021 A 

3.356 

33*3 

51618.6 

424.7 

52043.3 

2 

8*0214 

3*565 

33*3 

54829*4 

399*8 

55229.3 

3 

8 k *02l4 

3.823 

33.3 

58807.9 

372.6 

59160.6 


c 

c 





L. 

c 

c 
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DATE 03-01-68 

( 


C 


< DEL H UMA U/CO 

BTU/LB FT/SEC 

2287.0 1225*0 0*104 

c .. 


c 

C DEL H UMA U/CO 

BTU/LB FT/SEC 

2287.0 1228.0 0*104 


c.. 


t DEL H UMA U/CO 

BTu/LB ft/sec 

2287.0 2225.0 0.104 


C DEL M UMA U/CO 

BTU/LB FT/SEC 

2287.0 1225.0 0.103 

c 


t 



AREA 

MACH NUM 

PT 


SQ-IN 


PSiA 

c 

223.57 

0.300 

>1*9 


i 


l 



\ 

O/ER-ALL TWO-SPOOL PERFORMANCE PAGE 25 

FIRST SPOOL INLET TO SECOND SPOOL EXIT 

/ U/CO* PRST PRTT E T $ T ETTT RET RES 

0.106 ' 9.554 8.747 0.837 0.861 1.069 1.050 

MANIFOLD INLET TO SECOND SPOOL EXIT 

U/CO* PRST PRTT ETST ETTT RET RES 

0.106 9.685 8.866 0.833 0.867 1.064 1.046 

MANIFOLD EXIT TO EXHAUST COLLECTOR EXIT 

U/CO* PRST PRTT ■ ETST ETTT RET RES 

0.105 9.1)67 9.273 0*828 0.845 1.058 1.030 

MANIFOLD INLET TO EXHAUST COLLECTOR EX I T 

U/CO* . PRST PRTT ETST ETTT RET RES 

0.104 10.002 9.400 0.825 0,641 1.053 1.026 

EXHAUST COLLECTOR EXIT FLANGE CONDITIONS 

P IT T 

PS 1 A DEO R DEG R 


29.9 


100 V. 3 


989.8 


